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My  software  project  had  two  objectives  in  mind,  thus  my 
report  is  divided  into  two  parts. 

The  first  objective  and  subject  of  Part  I  was  to  develop  a 
Turbo  Pascal  procedure  to  drive  the  IBM  Voice  Communications 
Application  Program  Interface  software  which  interfaces  the 
IBM  Voice  Communications  Adapter  hardware  to  synthesize 
speech  from  text.  The  resulting  Turbo  Pascal  procedure, 
SPEAK. INC,  was  designed  to  allow  any  user  the  ability  to 
produce  speech -from  text  from  within  any  Turbo  Pascal 
program.  In  addition,  three  application  programs  that  can 
be  applied  for  introductions,  explanat i ons,  error  messages, 
etc.  were  developed  using  the  procedure.  SAY.COM  allows  a 
user  the  ability  to  produce  speech  from  the  command  line  or 
from  within  a  batch  file.  SAYTEXT.COM  verbalizes  text  from 
within  any  text.  file.  REMIND.COM  is  a  memory-resident 
program  that  produces  verbal  messages  at  preprogrammed 
times.  User  guides  and  system  documentation  guides  for  the 
procedure  and  the  three  application  programs  are  found  in 
Part  I,  Chapter  One  through  Chapter  Four. 


The  second  objective,  covered  in  Part  II,  explores  voice 
recognition  tools  through  the  IBM  Voice-Activated  Keyboard- 
Utility.  Ti:i;-.  utility  allows  user -defined  applications  to 
be  built.  that  free  the  user  from  the  keyboard  during 
interaction  with  group  members  in  discussions, 
presentations,  etc.  or  in  any  situation  where  the  user  l 
requires  mobility  from  the  keyboard.  In  Cnapter  Five,  a 
user  guide  with  an  example  user  appl i cat i on  is  provided  to 
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requires  mobility  from  the  keyboard.  In  Cnap 
user  guide  with  an  example  user  appl  i  cat  i  on  is 
assist  setting  up  applications  incorporating  th 
use  voice  recognition. 
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ABSTRACT 


VOICE  TECHNOLOGY  USING  PERSONAL  COMPUTERS 

by 

Gary  L.  Talbot 

Chairman:  Dr.  Doug  Vogel 

My  software  project  had  two  objectives  in  mind,  thus  my 
report  is  divided  into  two  parts. 

The  first  objective  and  subject  of  Part  I  was  to  develop  a 
Turbo  Pascal  procedure  to  drive  the  IBM  Voice 
Communications  Application  Program  Interface  software  which 
interfaces  the  IBM  Voice  Communications  Adapter  hardware  to 
synthesize  speech  from  text.  The  resulting  Turbo  Pascal 
procedure,  SPEAK. INC,  was  designed  to  allow  any  user  the 
ability  to  produce  speech-f r om-text  from  within  any  Turbo 
Pascal  program.  In  addition,  three  application  programs 
that  can  be  applied  for  introductions,  explanations,  error 
messages,  etc.  were  developed  using  the  procedure.  SAY.COM 
allows  a  user  the  ability  to  produce  speech  from  the 
command  line  or  from  within  a  batch  file.  SAYTEXT.COM 
verbalizes  text  from  within  any  text  file.  REMIND.COM  is  a 
memory-resident  program  that  produces  verbal  messages 
at  preprogrammed  times.  User  guides  and  system 


documentation  guides  for  the  procedure  and  the  three 

application  programs  are  found  in  Part  I,  Chapter  One 

through  Chapter  Four. 

The  second  objective,  covered  in  Part  II,  explores  voice 
recognition  tools  through  the  IBM  Voice-Activated  Keyboard 
Utility.  This  utility  allows  user-defined  applications  to 
be  built  that  free  the  user  from  the  keyboard  during 

interaction  with  group  members  in  discussions, 
presentations,  etc.  or  in  any  situation  where  the  user 
requires  mobility  from  the  keyboard.  In  Chapter  Five,  a 
user  guide  with  an  example  user  application  is  provided  to 
assist  setting  up  applications  incorporating  the  utility  to 
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INTRODUCTION 


The  SPEAK  procedure  is  written  as  an  interface  between 
Turbo  Pascal  programs  and  the  IBM  Voice  Communications 
Adapter  and  allows  the  calling  Turbo  Pascal  program  to 
produce  intelligible  speech  from  an  ASCII  text  string. 

This  procedure  was  written  using  Turbo  Pascal,  Version 
3.0,  to  execute  commands  of  the  IBM  Voice  Communications 
Application  Program  Interface  (VC  API)  software  or  the 
Voice  Communications  Operating  System  software  that  drives 
the  IBM  Voice  Communications  Adapter.  This  hardware  device 
consists  of  a  specialized  micro  processor,  memory,  and 
supporting  hardware  which  allows  text  to  be  translated  to 
spoken  language.  The  VC  API  software  is  called  from  the 
SPEAK  procedure  by  setting  up  registers  and  supporting 
parameter  blocks  and  then  executing  a  DOS  interrupt  14H. 

To  produce  speech,  certain  base  commands  must  be 
executed  to  provide  initialization,  termination,  and 
resource  management.  The  text-to-speech  function  set 
produces  text-to-speech  translation  and  is  loaded  into  the 
micro  processor  of  the  Voice  Communications  Adapter  to 
execute  commands  producing  the  actual  text-to-speech 
translation . 
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Basic  actions  that  are  accomplished  by  the  SPEAK 
procedure  are: 

-obtain  software  resources  using  the  open  command; 

-claim  hardware  resources  using  the  claim  hardware 
command ; 

-connect  devices  to  appropriate  port  using  the 
connect  devices  to  port  command; 

-load  the  text-to-speech  function  set  onto  the 
hardware  and  connect  it  to  the  appropriate  port 
using  the  connect  function  to  port  command; 

-initialize  the  speech  function; 

-produce  the  actual  text-to-speech  translation; 

-release  all  resources  via  the  close  command. 

Each  command  requires  different  register  and  parameter 
settings  before  the  interrupt  14H  is  issued.  On  return, 
each  command  will  return  command  specific  error  codes  if  an 
error  occurs. 

The  SPEAK  procedure  requires  three  parameters  to  be 
passed  when  it  is  called.  The  first  is  the  name  of  a 
string  containing  a  sentence  of  up  to  240  ASCII  text 
characters  that  is  followed  by  an  end  of  sentence 
terminator,  either  a  period  (.),  a  question  mark  (?),  or 
an  exclamation  point  (!),  that  the  user  wishes  to  be 


nslated 

into  spoken 

language 

.  The  s 

econd 

parameter  is 

integer 

specifying 

the  desii 

red  voice 

pitc 

h.  The  third 

final 

parameter  is 

also  an 

integer 

that 

specifies  the 

desired  rate  of  speech. 

This  guide  is  intended  to  simplify  the  task  of  a  user 
wishing  to  produce  speech  from  text  from  within  a  Turbo 
Pascal  program.  The  sections  following  will  discuss 
hardware  and  software  requirements  that  are  necessary  to 
use  this  procedure.  Also,  installation  instructions  for 
using  the  speech-to-text  procedure  will  be  discussed.  An 
overview  of  using  the  SPEAK  routine  is  covered  under  the 
operating  Instructions  section  and  an  example  is  provided. 
Next,  input  and  output  formats  and  descriptions  are 
discussed.  Finally,  references  for  additional  information 
are  given. 

HARDWARE  AND  SOFTWARE  REQUIREMENTS 

Hardware : 


Minimum  hardware  requirements  are  given  in  Table  1.1. 


MINIMUM  HARDWARE  REQUIREMENTS 


-  IBM  PC/AT/XT  or  compatibles 

-  256  KB  memory 

-  Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double-sided 
diskette  drive  (360  KB  /  1.2  MB)  and 
one  fixed  disk 


-  Monochrome  or  color  monitor 

-  An  IBM  Voice  Communications  Adapter 

-  Speaker  (8-ohm,  capable  of  handling  two 
watts  of  audio  power  with  an  attached 
subminiature  2.5  mm  (0.1  inch)  connector 

Table  1.1 

Software : 

Minimum  software  requirements  are  given  in  Table  1.2. 
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MINIMUM  SOFTWARE  REQUIREMENTS 


-  DOS  2.10  or  higher  for  IBM  PC/AT  or 
DOS  3.00  or  higher  for  IBM  XT 

-  IBM  Voice  Communications  Operating 
Subsystem  Program 

~  Turbo  Pascal,  Version  3.0 


Table  1.2 


INSTALLATION  INSTRUCTIONS 

Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  Voice  Communications 
Application  Program  Interface  (the  software  driver)  may  be 
found  in  IBM  Voice  Communications  Application  Program 
Interface  Reference  Vol  1  Chap  2,  6280743.  The  software 
resides  in  a  subdirectory,  either  on  a  hard  drive  or  floppy 
diskette  named  vcapi .  The  Voice  Communications  Operating 
Subsystem  Program  diskette  is  se 1 f - i ns ta 1 1 i ng  and  is  a 
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fairly  simple  procedure.  Different  procedures  exist  for 
installing  the  system  on  hard  or  floppy  disks. 


To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 


set  vcapi  =  y:\vcapi\ 


(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code . ) 


y:\vcapi\vcapidrv  /o  10 


(the  /o  10  option  allows  the  text-to-speech  function  to  be 
loaded  when  the  API  driver,  vcapidrv,  is  loaded  at  boot 
time. ) 


OPERATING  INSTRUCTIONS 


Procedure  SPEAK  serves  as  an  interface  to  the  IBM 
Voice  Communications  Applications  Program  Interface  for  the 
text-to-speech  (speech  synthesis)  function  set.  It  can  be 
included  within  any  Turbo  Pascal  program  in  which  the  user 
wishes  to  have  a  passage  of  ASCII  text  translated  to 
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speech.  The  only  required  lines  within  the  calling  program 
are  : 

-  a  type  declaration, 

-  an  include  statement  to  include  the  SPEAK 
procedure,  and 

-  the  call  to  the  procedure. 

Parameters  that  must  be  passed  to  the  SPEAK  procedure 

are : 

-  the  name  of  the  string  containing  up  to  240 
ASCII  text  characters  forming  a  sentence  and 
followed  by  a  sentence  terminator,  either  a 
period  (.),  a  question  mark  (?),  or  an 
exclamation  point  (!).; 

-  an  integer,  p,  giving  the  baseline  pitch;  and 

-  an  Integer,  r,  which  set3  the  rate  of  speech. 

Pitch:  the  baseline  pitch  must  be  set  to  0  or  be  an 

integer  in  the  range  between  50  and  100,  inclusive.  Any 
other  value  supplied  that  does  not  meet  these 
requirements  will  be  defaulted  to  the  normal  pitch  rate 

of  85.  The  special  pitch  of  0  will  produce  a  whispering 
voice.  Pitch  may  be  adjusted  dynamically  by  changing  this 
parameter  within  any  call  to  the  SPEAK  procedure  at  any 
time.  Resolution  of  baseline  pitch  is  about  10  so 

differences  such  as  103  and  107  may  not  be  detectable. 
Higher  numbers  produce  higher  pitches. 


Rate:  the  range  for  the  speech  rate  parameter  is 

between  50  and  250,  inclusive.  Any  integer  not  supplied 
within  this  range  will  default  to  the  normal  speech  rate  of 
150  words  per  minute.  Again,  maximum  resolution  is  about 
10  words  per  minute  so  values  such  as  123  and  130  may  not 
be  detectable.  Speech  rate  is  also  adjustable  by  changing 
the  parameter  passed  in  the  call  to  the  SPEAK  procedure. 
Higher  values  produce  faster  rates  of  speech. 

When  using  the  SPEAK  procedure  within  a  Turbo  Pascal 
program,  the  user  may  wish  to  include  the  compiler  option 
{ $V- }  to  relax  checking  of  the  length  of  str  ings  passed  to 
the  SPEAK  procedure.  That  is,  a  string  with  length  of  80, 
128,  etc.  up  to  the  maximum  allowable  length  of  240 
characters  may  be  passed  as  the  parameter  to  the 
procedure.  **  Note  **  A  string  of  type  'longstr'  for  the 
VAR  parameter  definition  used  by  the  SPEAK  procedure  is 
still  required  to  be  defined. 

An  example  user  program  follows: 

Program  Ca 1 1 ing_Pr ogram; 

{ $V-}  (optional  compiler  directive  to 

relax  parameter  string  checking} 
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{more  user  code  if  desired} 


end . 


{end  of  user  program} 


Error  codes  are  returned  directly  by  the  SPEAK 
procedure  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
1.3.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 
Reference,  vol  1. 


ERROR  CODES  RETURNED  BY  SPEAK 


Command 


Open 


Error  Code 


Explanat i on 


Successful 


Cla i mhdw 


API  Inoperative 


RCB  not  available 


Invalid  card  number 


Successful 


Card  Inoperative 

RCB  invalid  or  not  pen 


( cont . 
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it. 


At  least-  one  resource  seized 


32  Unsupported  hardware 

48  Combination  of  16  and  32 

above 


Conndtop 


0  Successful 

2  Card  inoperative 

4  RCB  invalid  or  not  open 

16  Port  or  devices  not  claimed 

32  Unsupported  devices 

64  Unsupported  connection 


Connftop  0 

2 

4 

16 

32 

64 

128 

256 

512 


1024 


Successful 
Card  inoperative 
Cl D  invalid 

Port  or  partition  not  claimed 
Function  set  not  known 
Function  set  not  accessible 
Insufficient  storage 
Port  not  specified 
Function  set  already 
connected  to  CID 
Unsupported  concurrency 


(  con  t  .  ) 


2048 


Function  set  cannot  be 


4096 


0 

4 

8 

16 


0 

4 

8 

16 

32 

64 


128 

256 


0 

2 

4 


held  by  partition 
Invalid  configuration 


Successful 

Function  set  not  connected 
Busy  (re-entrant  call) 
Function  set  not  stopped 


Successful 

Function  set  not  connected 
Busy  (re-entrant  call) 
Syntax  error 
Pause  command  received 
Input  buffered  since  no 
sentence  terminator 
provided 

No  null  found  in  text 
Pause  pending  (must  call 
resume  first) 


Successful 

Card  inoperative 

RCB  invalid  or  not  open 


If  a  return  code  other  than  0  is  returned  when  a 
command  is  executed  by  the  driver,  then  a  message  is 
written  to  the  console  telling  which  command  returned  the 

error  and  which  error  code  was  returned.  The  only  ones 
which  a  user  might  see  are  error  codes  16  or  64  from  the 
speak  command.  This  usually  indicates  that  the  end  of 
sentence  punctuation  was  not  provided  when  the  SPEAK 
procedure  was  called.  A  programmer  may  desire  that  the 

procedure  not  notify  the  user  if  an  error  code  is  returned 
and  this  logic  is  easily  deleted  from  the  procedure.  It  is 
basically  incorporated  as  an  aid  in  development  when 
first  installing  the  speech-to-text  software  and  hardware 
to  track  down  errors  that  might  occur.  It  can  also  be  a 
helpful  reminder  to  the  user  to  end  sentences  with 
terminator  punctuation,  although  user  applications  can  be 

written  to  default  to  a  period,  etc.,  if  no  punctuation  is 

provided . 


INPUT  AND  OUTPUT  FORMATS  AND  DESCRIPTIONS 


Input  to  the 
consisting  of 
sentences  and 
(.),  question 


SPEAK  procedure  is  in  the  form  of  strings 
up  to  240  ASCII  text  characters  forming 
followed  by  a  sentence  terminator  (period 
mark  (?),  or  an  exclamation  point  (!)). 
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'if**1 


the  first 


Additional  inputs  are  two  integer  values, 
providing  the  desired  base  pitch  and  the  second  setting  the 
desired  rate  of  speech.  Output  is  in  the  form  of 
intelligible  speech.  Other  output  is  written  error 
messages  to  the  user  console. 


PROGRAM  LISTING 


{********************************************************** 
Procedure  Speak  serves  as  an  interface  to  the  IBM  Voice 
Communications  Applications  Program  Interface  for  the  Text- 
to-Speech  (speech  synthesis)  function  set.  It  can  be 
included  in  any  Turbo  Pascal  program  in  which  the  user 
wishes  to  have  a  passage  of  text  spoken.  The  only  required 
lines  within  the  calling  program  are  a  type  declaration,  an 
include  statement  to  include  the  procedure,  and  the  call 
to  the  procedure.  Parameters  that  must  be  passed  to  the 
speak  procedure  are  the  name  of  a  string  containing  a 
sentence  of  up  to  240  ASCII  text  characters  that  ends  with 
a  sentence  terminator or  '!'),  an  integer,  p, 
giving  the  baseline  pitch  (the  range  for  pitch  is  0  or 
between  50  and  100),  and  an  integer,  r,  which  sets  the 
speech  rate  (the  range  for  speech  rate,  r,  is  between  50 
and  250  ).  A  pitch  of  0  will  produce  a  whispering  voice 
while  other  values  not  between  50  and  200  will  default  to 
the  normal  pitch  rate  of  85.  Pitch  may  be  adjusted  at  any 
time  by  replacing  this  value  and  speach  will  remain  at  this 
same  pitch  until  another  value  is  input.  Resolution  of 
baseline  pitch  is  about  10  so  differences  such  as  103  and 
111  may  not  be  detectable.  Higher  numbers  produce  higher 
pitches.  If  a  value  outside  the  range  of  50  and  100  is  not 
used  with  the  speech  rate,  r,  then  the  default  is  to  the 
normal  rate  of  150  words  per  minute.  Again,  maximum 
resolution  is  about  10  words  per  minute  so  values  such  as 
123  and  127  may  not  be  detected.  Speech  rate  is  also 
adjustable  by  changing  the  value  passed  and  this  rate 
remains  in  effect  until  a  different  value  is  supplied. 


when  using  Turbo  Pascal,  the  compiler  option  {$v-}  may  be 
used  to  relax  checking  of  the  length  of  the  buffer  passed 
to  the  speak  procedure.  That  is,  a  buffer  with  length  of 
80,  128,  etc  may  be  passed.  However,  it  is  still  required 
to  define  a  string  of  type  'longstr'  for  the  var  parameter 
used  in  the  speak  procedure. 


An  example  user  program  follows: 
****************************************************** 

Program  Calling_Program; 

{ $ V- }  {optional  compiler  directive  to  relax 

parameter  length  checking} 

type  longstr  =  stringC240);  (this  must  be  supplied 

since  it  is  declared 
as  a  Var  parameter  in 
S peak } 

{other  user  declarations,  variables, 
functions,  procedures,  etc.} 


{$1  speak. inc}  {includes  the  speak  interface  code} 

begin  {user  program  starts  here} 

{user  code  to  set  up  a  buffer  to  send  to  speak 
procedure } 

speak ( str ing, p, r )  {call  the  speak  procedure  to  speak 

text  in  the  string  at  pitch,  p, 
and  at  rate,  r} 

{more  user  code  if  desired} 

end.  {end  of  user  program} 

****************************************************** 
Reference:  IBM  Voice  Communications  Application 

Program  Inter  face  Reference  Vol  1  &  2 


For  additional  information  on  error  codes  returned, 
see  the  above  reference  or  consult  the  Text -to-Speech 
Interface  for  the  IBM  Voice  Communication  Adapter 
Guide,  Talbot ,  Summer,  1987. 


Procedure  Speak(Var  talk : longstr ;  p,r:  integer); 

label  loop, 99 ,  f ini ; 

type  result  =  record 

ax,bx,cx,dx,bp,si,di,ds,es,flags:integer 
end ; 

plist  =  array[0..5]  of  integer; 
shortstr  =  string[161; 

var  reg  :result;  {record  type  to  call 

interrupt } 

rcb  : integer;  {storage  for  the  resource 

control  block} 

bid  :integer;  {storage  for  the  base  id} 

cid  :integer;  {storage  for  partition  2 

connection  id} 

pb  :plist;  {the  parameter  block} 

k  :integer;  {length  of  text} 

pitch  :string[31;  {voice  pitch  string} 

rate  :string[3];  {voice  rate  string} 

setbuf  :shortstr;  {set  pitch  and  rate 

buffer } 

begin 

{setup  pitch,  p,  and  speech  rate,  r} 
if  p  in  [0,50. .200] 

then  str(p, pitch)  {convert  pitch  to  string} 

else  pitch:=  '85';  {default  to  normal  pitch} 

if  r  in  [50,250] 

then  str(r,rate)  {convert  rate  to  string} 

else  rate:=  '150*;  [default  to  normal  rate} 

setbuf:=~(+' [ '+pitch+'p'+~[+' [ '+rate+'r'+~@; 

{setup  the  pitch  and  rate  buffer} 


{open  command  to  obtain  a  resource  control  block  and 
connection  ids} 

r eg . ax : =$1111 ;  {function  code  for  open 

command } 

r eg . dx : =$0 21 f ;  {board  I/O  address} 

r eg . es : =seg ( pb ) ;  {parameter  block  segment} 

reg . bx : =of s ( pb ) ;  {parameter  block  offset} 

i ntr ( $14 , reg ) ;  {call  interrupt  14} 


{zero  if  no  error} 
occurred  in  open.'); 


if  piD [03  <>  0  then 
begin 

wr iteln ( ' An  error 
goto  99; 
end ; 

rcb : =pb [ 1 ] ; 

bid : =pb C  2 ] ; 
cid : =pb [43; 


{claim  h/w  resources  for  the 
command } 

reg . ax : =$llla ; 

reg .dx : =bid ; 
reg . es : =seg ( pb ) ; 
reg . bx : =  of s ( pb ) ; 
pb[ 2 ] : =$2602; 

pb [ 3 ] : =$0000 ; 
intr ( $14,  reg ) ; 
if  pbtO]  <>  0  then 
begin 

wr iteln ( ' An  error 
goto  99; 
end; 


{save  resource  control 
block } 

{save  base  id} 

{save  partition  2 
connection  id} 

rcb  using  claimhdw 

{function  code  for 
claimhdw  command} 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{claim  port  2,  partition 
2,  spkr,  microphone} 

{no  base  interrupt} 

{call  interrupt  14} 

{zero  if  no  error} 


occurred  in  claim.'); 


{connect  devices  to  the  port  using  conndtop  command} 


reg .ax : =$1121; 

reg .dx : =bid; 
reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb ) ; 
pb [ 2 ] : =2; 
pb [ 3 ] : =$0600 ; 

intr ( $14, reg ) ; 
if  pb [ 0 ]  <>  0  then 
begin 

writeln('An  error 
goto  99; 


{function  code  for 
conndtop } 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{connect  to  port  2} 
{connect  microphone  and 
speaker } 

{call  interrupt  14} 

{ zero  if  no  error } 


occurred  in  connect  devices.'); 


{load  function  set  into  a  port  and  connect  it  using 
the  connftop  command} 


reg .ax : =$lllf ; 

reg.dx:=bid; 
reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb ) ; 
pb [ 1 ] : =cid; 

pb  t  2 ] :  =  2 ; 
pb [ 3 ] : =10 ; 


{function  code  for 
connftop  command} 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  the 
parameter  block} 

{connect  to  port  2} 
{connect  text-to-speech 
function } 

{call  interrupt  14} 

{zero  if  no  error} 


intr ( $14, reg ) ;  {call  interrupt  14} 

if  pb[0]  <>  0  then  {zero  if  no  error} 

begin 

writeln('An  error  occurred  in  connect 
function .  '  ) ; 

goto  99; 
end; 

{the  initialize  text-to-speech  function  set  data 
structures } 


reg . ax : =$1113 ; 


reg.dx: =cid; 

reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb )  ; 
pb [ 1 ] : =c id ; 


{function  code  for 
initialize  data 
structures } 

{need  connection  id  in 
dx} 

{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  parameter 
block  also} 

{call  interrupt  14} 

{zero  if  no  error} 


intr ( $14 , reg ) ;  {call  interrupt  14} 

if  pb[0]  <>  0  then  {zero  if  no  error} 

beg  i  n 

writeln('An  error  occurred  in  initialize  speech 
function  .  '  ) ; 

goto  99; 
end ; 

{the  text-to-speech  speak  command} 

{set  the  pitch  and  rate  by  outputting  setbuf} 


reg . ax : =$llle ; 

reg .dx : =cid; 

reg.es:=seg(pb); 
reg . bx : =of s ( pb ) ; 


{function  code  for  speak 
command } 

{need  connection  id  in 
dx } 

{parameter  block  segment} 
{parameter  block  offset) 
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pb [ 1 ] : =c id ; 


pbt  2 ] :=2; 

pb [ 3 ] :=ofs(setbuf)+l; 

pb[4 ] :=seg(setbuf) ; 
intr ( $14, reg  ) ; 
if  pb [ 0  ]  <>  0 
then 

begin 

writeln('An  error 

function .  ' 

goto  99; 
end; 

{say  the  text  line  that  was 

reg.ax:=$llle; 

reg . dx : =c id ; 

reg.es: =seg ( pb ) ; 
reg .  bx : =of s ( pb ) ; 
pbt 1 1 : =cid; 

pb  t  2 1  :  =2 ; 

k : =length ( talk  ) ; 

talk [ k  +  1 1 :=~(; 
talk [k+2 
talk  t  k  +  3  1  :  =  '  i ' ; 

talktk  +  41  :  =  ~@; 
pb [ 3 ] :=ofs(talk)+l; 


pb [ 4 1 : =seg ( talk ) ; 
intr ( $14, reg ) ; 
if  pb(0)  <>  0 
then 

begin 

wr iteln ( ' An  error 
f unct i on 

goto  99; 
end ; 
goto  fini; 

99:  writelnf 'Return  Code 


{need  cid  in  parameter 
block  also} 

{32  bit  address  for 
buffer  setbuf} 

{setbuf  address  offset, 
offset  1  for  length} 
{setbuf  address  segment} 
{call  interrupt  14} 

{zero  if  no  error} 


occurred  in  speech 


passed  as  a  parameter} 

{function  code  for  speak 
command } 

{need  connection  id  in 
dx} 

{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  parameter 
block  also} 

{32  bit  address  for 
buffer  talk} 

{find  the  length  of  the 
buffer } 

{put  in  an  ESC} 

{and  a  left  bracket} 

{and  an  i  to  create 
interrupt } 

{add  a  null  at  the  end} 
{use  the  buffer  passed  in 
talk,  offset  1  for 
length } 

{segment  for  talk} 

{call  interrupt  14} 

{zero  if  no  error} 


occurred  in  speech 


is  ' , pb  tO});  {tell  the  user 
what  code  was 
returned  } 


{close  command  to  release  resources} 


f  ini  : 

r eg . ax : =$1112 ; 
reg .dx : =bid; 
reg.es: =seg ( pb ) ; 
reg . bx : =of s ( pb ) ; 
pb [ 1 ] : =rcb; 


{come  here  always  to 
release  resources} 
{function  code  for  close} 
{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{resource  control  block 
to  release  resources} 
{call  interrupt  14} 

{zero  if  no  error} 


intr ( $14, reg ) ;  {call  interrupt  14} 

if  pb[0]  <>  0  then  {zero  if  no  error} 

begin 

writeln{ 'An  error  occurred  in  close.'); 
writeln( 'Return  Code  is  ' , pb  t  0 ] ) ;  {tell  the  user 

what  code  was 
returned } 

end ; 


end ; 


{procedure  speak} 
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INTRODUCTION 


SAY  is  a  program  written  in  Turbo  Pascal,  Version  3.0, 
that  allows  a  user  to  input  text  that  (s)he  wishes 
translated  into  intelligible  spoken  language.  The  program 
provides  a  quick  and  easy  way  of  producing  speech  from  a 
text  string  entered  from  the  DOS  command  line. 

For  example,  within  a  batch  file,  or  at  any  other  time 
when  control  is  at  the  DOS  command  line,  if  the  user  wishes 
the  sentence,  "Please  enter  your  name  now.",  to  be  spoken, 
then  all  ( s )  he  has  to  enter  is:  say  Please  enter  your  name 
now.  This  command  will  activate  the  SAY  program  and  cause 
the  text  that  is  passed  on  the  command  line  as  parameters 
to  be  voiced  over  a  speaker.  A  user  must  assure  that  the 
IBM  Voice  Communications  Adapter  (hardware)  and  the  IBM 
Voice  Communications  Operating  System  (software)  are 
installed  on  the  machine  at  which  they  are  working  for  the 
SAY  program  to  work  correctly. 

Text -to-speech  translation  is  made  possible  by  use  of 
the  SPEAK  procedure  which  serves  as  an  interface  to  the  IBM 
Voice  Communications  Operating  System  which  in  turn  drives 
the  IBM  Voice  Communications  Adapter  that  produces 


This  guide  is  intended  to  simplify  the  task  of  a  user 
wishing  to  produce  speech  from  text  from  the  DOS  command 
line.  The  sections  following  will  discuss  hardware  and 
software  requirements  that  are  necessary  to  use  this 
program.  Also,  installation  instructions  for  using  the  SAY 
program  will  be  discussed.  An  overview  of  using  the  SAY 
command  is  covered  under  the  operating  instructions  section 
and  examples  are  provided.  Next,  input  and  output  formats 
and  descriptions  are  discussed.  Finally,  references  for 
additional  information  are  provided. 


HARDWARE  AMD  SOFTWARE  REQUIREMENTS 


Hardware : 


Minimum  hardware  requirements  are  given  in  Table  2.1. 


MINIMUM  HARDWARE  REQUIREMENTS 


-  IBM  PC/AT/XT  or  compatibles 

-  256  KB  memory 

-  Two  double-sided  diskette  drives 

(360  KB  /  1.2  MB)  or  one  double- 


( cont .  ) 


sided  diskette  drive  (360  KB  / 

1.2  MB)  and  one  fixed  disk 
Monochrome  or  color  monitor 
An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of  handling 
two  watts  of  audio  power  with  an 
attached  subminiature  2.5  mm  (0.1 
i nch )  connector  ) 

Table  2.1 

Software : 

Minimum  software  requirements  are  given  in  Table  2.2. 

MINIMUM  SOFTWARE  REQUIREMENTS 

-  DOS  2.10  or  higher  for  IBM  PC/AT  or 
DOS  3.00  or  higher  for  IBM  XT 

IBM  Voice  Communications  Operating 
Subsystem  Program 
Turbo  Pascal,  Version  3.0 
(for  compilation  purposes  only) 

-  SAY.COM 


Table  2.2 


INSTALLATION  INSTRUCTIONS 


Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications ,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  Voice  Communications 
Application  Program  Interface  (the  software  driver)  may  be 
found  in  IBM  Voice  Communications  Application  Program 
Interface  Reference  Vol  1  Chap  2,  6280743.  The  software 
resides  in  a  subdirectory,  either  on  a  hard  drive  or  floppy 
diskette  named  vcapi .  The  Voice  Communications  Operating 
Subsystem  Program  diskette  is  self  installing  and  is  a 
fairly  simple  procedure.  Different  procedures  exist  for 
installing  the  system  on  hard  or  floppy  disks. 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 


(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code  .  ) 

y:\vcapi\vcapidzv  / o  10 

(the  /o  10  option  allows  the  text-to-speech  function  to 
be  loaded  when  the  API  driver,  vcapidrv,  is  loaded  at 
boot  time. ) 

OPERATING  INSTRUCTIONS 

The  SAY  program  will  produce  intelligible  speech  from 
the  text  entered  as  parameters  on  the  command  line.  Input 
is  limited  to  127  total  characters  due  to  Turbo  Pascal 
limitations.  Text  to  be  spoken  should  be  followed  with  the 
desired  end  of  sentence  terminator,  either  a  period  (.),  a 
question  mark  (?),  or  an  exclamation  point  (!).  If  the 
user  forgets  to  provide  the  end  of  sentence  terminator, 
then  the  default  is  a  period.  Sentence  intonation  varies 
according  to  the  terminator  provided.  Pitch  and  rate  of 


SPEAK  procedure  within  the  program  and  recompile  the 
program.  When  recompiling,  make  sure  that  the  option  to 
produce  a  .COM  file  has  been  selected  from  within  Turbo 
Pascal.  For  additional  information  on  the  SPEAK  procedure 
and  pitch  and  rate,  see  reference  3  given  at  the  end  of 
this  guide. 

Example  uses  of  the  SAY  program  follow: 

A>say  This  is  a  mighty  fine  computer  system! 

A>say  Do  you  want  to  delete  all  files? 

A>say  It  is  now  time  to  have  a  coffee  break. 

Error  codes  may  be  returned  directly  by  the  SAY 
command  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
2.3.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Appl ication  Program  Interface 


ERROR  codes 


Command 


Error  Code 


Explanation 


Open 

0 

Successful 

2 

API  inoperative 

16 

RCB  not  available 

64 

Invalid  card  number 

Cla imhdw 

0 

Successful 

2 

Card  Inoperative 

4 

RCB  invalid  or  not  open 

16 

At  least  one  resource  seized 

32 

Unsupported  hardware 

48 

Combination  of  16  and  32 

above 

Conndtop 

0 

Successful 

2 

Card  inoperative 

4 

RCB  invalid  or  not  open 

16 

Port  or  devices  not  claimed 

( cont .  ) 
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Connf top 


Initialize 


32 

Unsupported 

devices 

64 

Unsupported 

connect  ion 

0 

2 

4 

16 

32 

64 

128 

256 

512 

1024 

2048 

4096 


Successful 
Card  inoperative 
Cl D  invalid 

Port  or  partition  not  claimed 
Function  set  not  known 
Function  set  not  accessible 
Insufficient  storage 
Port  not  specified 
Function  set  already 
connected  to  CID 
Unsupported  concurrency 
Function  set  cannot  be  held 
by  partition 
Invalid  configuration 


0  Successful 

4  Function  set  not  connected 

8  Busy  (re-entrant  call) 

16  Function  set  not  stopped 


( cont  .  ) 


Speak 


0 


successful 


4  Function  set  not  connected 

8  Busy  (re-entrant  call) 

16  Syntax  error 

32  Pause  command  received 

64  Input  buffered  since  no 

sentence  terminator 
provided 

128  No  null  found  in  text 

256  Pause  pending  (must  call 

resume  first) 


Close 


0  Successful 

2  Card  inoperative 

4  RCB  invalid  or  not  open 


Table  2.3 

If  a  return  code  other  than  0  is  returned  when  a 
command  within  the  SPEAK  procedure  is  executed  by  the 
driver,  then  a  message  is  written  to  the  console  telling 
which  command  returned  the  error  and  which  error  code  was 
returned.  The  only  ones  which  a  user  might  see  are  error 
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codes  16  or  64  from  the  speak  command.  This  usually 


indicates  that  the  end  of  sentence  punctuation  was  not 


provided  when  the  SPEAK  procedure  was  called.  A  programmer 


may  desire  that  the  procedure  not  notify  the  user  if  an 


error  code  is  returned  and  this  logic  is  easily  deleted 


from  the  SPEAK  procedure.  It  is  basically  incorporated  as 


an  aid  in  development  when  first  installing  the  speech-to- 


text  software  and  hardware  to  track  down  errors  that  might 


occur . 


INPUT  AND  OUTPUT  FORMATS  AND  DESCRIPTIONS 


Input  to  the  SAY  program  is  a  text  string  of  up  to  127 


characters  that  form  a  logically  complete  sentence  that 


ends  with  a  sentence  terminator,  either  a  period  (.),  a 


question  mark  (?),  or  an  exclamation  point  (!) 


Output  is  in  the  form  of  intelligible  spoken 


translation  of  the  text  that  is  input.  Other  output  is  in 


the  form  of  error  messages  directly  to  the  user  console. 
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INTRODUCTION 


SAY  is  a  program  written  in  Turbo  Pascal,  Version 
3.0,  that  allows  a  user  to  input  text  that  ( s )  he  wishes 
translated  into  intelligible  spoken  language.  The  program 
provides  a  quick  and  easy  way  of  producing  speech  from  a 
text  string  entered  from  the  DOS  command  line. 

For  example,  within  a  batch  file,  or  at  any  other  time 
when  control  is  at  the  DOS  command  line,  if  the  user  wishes 
the  sentence,  "Please  enter  your  name  now.",  to  be  spoken, 
then  all  ( s ) he  has  to  enter  is:  say  Please  enter  your  name 
now.  This  command  will  activate  the  SAY  program  and  cause 
the  text  that  is  passed  on  the  command  line  as  parameters 
to  be  voiced  over  a  speaker.  A  user  must  assure  that  the 
IBM  Voice  Communications  Adapter  (hardware)  and  the  IBM 
Voice  Communications  Operating  System  (software)  are 
installed  on  the  machine  at  which  they  are  working  for  the 
SAY  program  to  work  correctly. 

Text-to-speech  translation  is  made  possible  by  use  of 
the  SPEAK  procedure  which  serves  as  an  interface  to  the  IBM 
Voice  Communications  Operating  System  which  in  turn  drives 
the  IBM  Voice  Communications  Adapter  that  produces 
intelligible  speech  from  text. 
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SYSTEM  SPECIFICATIONS 


Both  the  IBM  Voice  Communications  Operating  System  and 
the  IBM  Voice  Communications  Application  Program  Interface 
software  are  required  for  operation  of  the  SAY.COM 
program.  Details  on  installation  are  provided  below. 

Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  IBM  Voice 
Communications  Application  Program  Interface  (the  software 
driver)  may  be  found  in  IBM  Voice  Communications 
Application  Program  Interface  Reference  Vol  1  Chap  2, 
6280743.  The  software  resides  in  a  subdirectory,  either  on 
a  hard  drive  or  floppy  diskette  named  vcapi .  The  Voice 
Communications  Operating  Subsystem  Program  diskette  is  self 
installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
floppy  disks  . 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 


set  vcapi  =  y:\vcapi\ 


(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code  .  ) 

y:\vcapi\vcapldrv  /o  10 

(the  /o  10  option  allows  the  text-to-speech  function  to  be 
loaded  when  the  API  driver,  vcapidrv,  is  loaded  at  boot 
time.  ) 


HARDWARE  REQUIREMENTS 


Minimum  hardware  requirements  are  given  in  Table  2.4. 


MINIMUM  HARDWARE  REQUIREMENTS 


IBM  PC/AT/XT  or  compatibles 
256  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double 
-sided  diskette  drive  (360  KB  / 
1.2  MB)  and  one  fixed  disk 
( cont .  ) 
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Monochrome  or  color  monitor 


An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of  handling 
two  watts  of  audio  power  with  an 
attached  subminiature  2.5  mm 
(0.1  inch)  connector) 


Table  2.4 


SOFTWARE  REQUIREMENTS 


Minimum  software  requirements  are  given  in  Table  2.5. 


MINIMUM  SOFTWARE  REQUIREMENTS 


£ 


r< 

•< 


v.v.v, 


»  ■*'  .V.'  .  . 


DOS  2.10  or  higher  for  IBM  PC/AT  or 

DOS  3.00  or  higher  for  IBM  XT 

IBM  Voice  Communications  Operating 

Subsystem  Program 

Turbo  Pascal,  Version  3.0 

(for  compilation  only} 

SAY.COM 


Table  2.5 
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DESIGN  DETAILS 


The  SAY.COM  program  uses  the  SPEAK  procedure  (see 

references)  to  interface  the  IBM  Voice  Communications 

Interface  Program  to  issue  commands  to  the  IBM  Voice 

Communications  Adapter.  Words  are  passed  as  parameters  on 
the  command  line  and  are  placed  into  a  string  buffer  which 
is  passed  to  the  SPEAK  procedure  to  be  translated  into 

speech . 


IMPLEMENTATION  DETAILS 

The  SAY  program  will  produce  intelligible  speech  from 
the  text  entered  as  parameters  on  the  command  line.  Input 
is  limited  to  127  total  characters  due  to  Turbo  Pascal 
limitations.  Text  to  be  spoken  should  be  followed  with  the 
desired  end  of  sentence  terminator,  either  a  period  (.),  a 
question  mark  (?),  or  an  exclamation  point  (!).  If  the 
user  forgets  to  provide  the  end  of  sentence  terminator, 
then  the  default  is  a  period.  Sentence  intonation  varies 
according  to  the  terminator  provided.  Pitch  and  rate  of 
speech  are  set  at  65  and  170  words  per  minute  within  the 
SAY  program.  If  the  user  desires  to  change  these  rates, 

( s  )  he  may  change  the  parameters  passed  in  the  call  to  the 
SPEAK  procedure  within  the  program  and  recompile  the 


program.  When  recompiling,  make  sure  that  the  option  to 
produce  a  .COM  file  has  been  selected  from  within  Turbo 
Pascal.  For  additional  information  on  the  SPEAK  procedure 
and  pitch  and  rate,  see  reference  three  given  at  the  end 
of  this  guide  . 


Example  uses  of  the  SAY  program  follow: 

A>say  This  is  a  mighty  fine  computer  system! 

A>say  Do  you  want  to  delete  all  files? 

A>say  It  is  now  time  to  have  a  coffee  break. 

Error  codes  may  be  returned  directly  by  the  SAY 
command  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
2.6.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 
Reference ,  Vol  1. 
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ERROR  CODES 


Command 

Open 


Error  Code 
0 
2 

16 

64 


Explanat ion 
Successful 
API  inoperative 
RCB  not  available 
Invalid  card  number 


Claimhdw 


Conndtop 


Connf top 


0  Successful 

2  Card  Inoperative 

4  RCB  invalid  or  not  open 

16  At  least  one  resource  seized 

32  Unsupported  hardware 

48  Combination  of  16  and  32 

above 


0  Successful 

2  Card  inoperative 

4  RCB  invalid  or  not  open 

16  Port  or  devices  not  claimed 

32  Unsupported  devices 

64  Unsupported  connection 

0  Successful 

2  Card  inoperative 

( cont .  ) 
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CID  invalid 


£ 


i 


16 

32 

64 

128 

256 

512 

1024 

2048 

4096 

Initialize  0 

4 

8 

16 

Speak  0 

4 

8 

16 

32 

64 


Port  or  partition  not  claimed 
Function  set  not  known 
Function  set  not  accessible 
Insufficient  storage 
Port  not  specified 
Function  set  already 
connected  to  CID 
Unsupported  concurrency 
Function  set  cannot  be  held 
by  partition 
Invalid  configuration 

Success f ul 

Function  set  not  connected 
Busy  (re-entrant  call) 
Function  set  not  stopped 


Successful 

Function  set  not  connected 
Busy  (re-entrant  call) 
Syntax  error 
Pause  command  received 
Input  buffered  since  no 
sentence  terminator 
provided 
( cont . ) 
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128 


No  null  found  in  text- 


256  Pause  pending  (must  call 

resume  first) 

Successful 
Card  inoperative 
RCB  invalid  or  not  open 

i _ 

Table  2.6 

If  a  return  code  other  than  0  is  returned  when  a 
command  within  the  SPEAK  procedure  is  executed  by  the 
driver,  then  a  message  is  written  to  the  console  telling 
which  command  returned  the  error  and  which  error  code  was 
returned.  The  only  ones  which  a  user  might  see  are  error 
codes  16  or  64  from  the  speak  command.  This  usually 
indicates  that  the  end  of  sentence  punctuation  was  not 
provided  when  the  SPEAK  procedure  was  called. 

A  programmer  may  desire  that  the  procedure  not  notify 
the  user  if  an  error  code  is  returned  and  this  logic  is 
easily  deleted  from  the  SPEAK  procedure.  It  is  basically 
incorporated  as  an  aid  in  development  when  first  installing 
the  speech-to-text  software  and  hardware  to  track  down 
errors  that  might  occur. 


Close  0 

2 
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PROGRAM  LISTING 


program  say; 

{This  program  will  say  the  text  entered  as  parameters  on 
the  command  line.  Input  is  limited  only  to  127  total 
characters  (due  to  limitation  of  Turbo  Pascal).  To  use  the 
program,  enter  the  command  'say'  followed  by  the  text  you 
wish  spoken.  Remember  to  end  the  text  with  a  sentence 
terminator,  either  a  period(.),  question  mark(?),  or  an 
exclamation  point(i).  Examples: 

say  This  is  a  mighty  fine  computer! 

say  Do  you  want  to  delete  all  files? 

say  It  is  now  time  to  have  a  coffee  break. 

{ $V- }  {compiler  directive  to 

relax 

length  of  strings} 

type  longstr  =  string[240];  {size  of  buffer  for  text 

input } 

word  =  string[801;  {size  of  buffer  for  a  word 

input } 

var  passage  : longstr;  {buffer  for  text  that  is  input} 
param  :word;  {buffer  for  word  that  is  input} 

numparam  : integer;  {number  of  parameters  (words)} 

i  : integer;  {an  index  for  words} 

{ $1  b:speak.inc}  {interface  procedure  for 

speech } 

beg  i  n 

f illchar ( passage , 240, '  ');  {clear  the  buffer} 

numparam : =paramcount ;  {find  number  of  words  passed} 

for  i:=  1  to  numparam  do  {create  the  text  buffer} 
begin  {to  be  spoken} 

param: =paramstr ( i ) ;  {get  each  word  from  the  command 

line} 

passage : =passage+ '  '+param;  {and  add  it  to  the  text 

buffer} 

end;  {end  for  i : =1  to  numparam} 

i : =length ( passage ) ;  {find  the  text  length} 

if  not  (passage[il  in  ('.','?','!'})  then 

passage : =passage+ '.' ;  {default  to  period  if  not 

punctuated } 

speak ( passage,  65, 170  ) ;  {speak  the  text  in  buffer, 

pitch  65,  rate  170} 


end  . 
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INTRODUCTION 

SAYTEXT  is  a  program  written  in  Turbo  Pascal,  Version 
3.0,  that  allows  a  user  the  option  of  having  the  text 
within  a  file  to  be  be  translated  into  spoken  language. 
The  user  enters  the  program  name,  SAYTEXT,  followed  by  a 
parameter  giving  the  filename  of  the  text  file  that 
contains  text  that  is  desired  to  be  spoken.  The  text  file 
can  be  composed  of  an  unlimited  number  of  sentences  each 
having  up  to  240  regular  ASCII  characters.  Each  sentence 
must  end  with  a  period  (.),  a  question  mark  (?),  or  an 
exclamation  point  (!). 

As  an  example,  the  user  would  enter  'saytext 
words.txt'  to  have  the  text  in  the  file  words.txt 
translated  into  spoken  language  over  an  attached  speaker. 

Text-to-speech  translation  is  made  possible  by  use  of 
the  SPEAK  procedure  which  serves  as  an  interface  to  the  IBM 
Voice  Communications  Operating  System  which  in  turn  drives 
the  IBM  Voice  Communications  Adapter  that  produces 
intelligible  speech  from  text.  A  user  must  assure  that  both 
the  IBM  Voice  Communications  Adapter  (hardware)  and  the  IBM 
Voice  Communications  Operating  System  (software)  are 
installed  on  the  machine  at  which  they  are  working  for  the 
SAYTEXT  program  to  work  correctly. 
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This  guide  is  intended  to  simplify  the  task  of  a  user 
wishing  to  produce  speech  from  text  contained  within  a 


given  text  file.  The  sections  following  will  discuss 
hardware  and  software  requirements  that  are  necessary  to 
use  this  program.  Also,  installation  instructions  for 
using  the  SAYTEXT  program  will  be  discussed.  An  overview 
of  using  the  SAYTEXT  command  is  covered  under  the  operating 
instructions  section  and  an  example  is  provided.  Next, 
input  and  output  formats  and  descriptions  are  discussed. 
Finally,  references  for  further  investigation  are  provided. 


HARDWARE  AND  SOFTWARE  REQUIREMENTS 

Hardware : 

Minimum  hardware  requirements  are  given  in  Table  3.1. 

MINIMUM  HARDWARE  REQUIREMENTS 


IBM  PC/AT/XT  or  compatibles 
256  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double¬ 
sided  diskette  drive  (360  KB  / 
1.2  MB)  and  one  fixed  disk 


/.vXv 

i  i  Am  it 


( cont . ) 


Monochrome  or  color  monitor 


An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of  handling 
two  watts  of  audio  power  with  an 
attached  subminiature  2.5  mm  (0.1 
inch)  connector) 


Table  3.1 


Software : 


Minimum  software  requirements  are  given  in  Table  3.2 


'teX'JrJAfi? 


MINIMUM  SOFTWARE  REQUIREMENTS 


DOS  2.10  or  higher  for  IBM  PC/AT  or 


DOS  3.00  or  higher  for  IBM  XT 


IBM  Voice  Communications  Operating 


Subsystem  Program 


Turbo  Pascal,  Version  3.0 


(for  compilation  purposes  only) 


SAYTEXT.COM 


Table  3.2 
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INSTALLATION  INSTRUCTIONS 


Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  IBM  Voice 
Communications  Application  Program  Interface  (the  software 
driver)  may  be  found  in  IBM  Voice  Communications 
Application  Program  Interface  Reference  Vol  1  Chap  2, 
6280743.  The  software  resides  in  a  subdirectory,  either  on 
a  hard  drive  or  floppy  diskette  named  vcapi .  The  Voice 
Communications  Operating  Subsystem  Program  diskette  is  self 
installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
floppy  disks. 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 


3et  vcapi  =  y:\vcapi\ 


(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code  .  ) 
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y:\vcapi\vcapidrv  /o  10 


F'v; 


l>v 


(the  /o  10  option  allows  the  text-to-speech  function  to  be 
loaded  when  the  API  driver,  vcapidrv,  is  loaded  at  boot 
time.  ) 


OPERATING  INSTRUCTIONS 

The  SAYTEXT  program  will  produce  intelligible  speech 
from  the  text  within  the  file  whose  name  is  entered  as  a 
parameter  on  the  command  line.  Any  number  of  sentences  may 
be  included  in  the  file  but  each  is  limited  to  a  maximum  of 
240  regular  ASCII  text  characters  and  must  end  with  either 
a  period  (.),  a  question  mark  (?),  or  an  exclamation  point 
(!).  If  a  sentence  of  more  than  240  characters  is  entered 
or  if  termination  punctuation  is  omitted,  then  a  default 
period  (.)  is  added  either  as  the  240th  character  or  at  the 
end  of  the  sentence. 

Sentence  intonation  varies  according  to  the  terminator 
provided  so  the  user  should  stress  adding  the  desired 
termination  punctuation.  Pitch  and  rate  of  speech  are  set 
at  65  and  170  words  per  minute  within  the  SAYTEXT  program. 
If  the  user  desires  to  change  these  rates,  they  may  change 
the  parameters  passed  in  the  call  to  the  SPEAK  procedure 
within  the  program  and  recompile  the  program.  When 
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recompiling,  make  sure  that  the  option  to  produce  a  .COM 


file  has  been  selected  from  within  Turbo  Pascal.  For 
additional  information  on  the  SPEAK  procedure  and  pitch  and 
rate,  see  reference  3  given  at  the  end  of  this  guide. 


An  example  use  of  the  SAYTEXT  program  follows: 


if  the  file  named  HELLO.DAT  contains  the  following  text: 

Hello  all!  It  is  so  nice  of  you  to  visit.  Will  you 
come  in  and  stay  for  awhile? 


then  to  have  the  passage  spoken,  enter  the  following  at  the 
DOS  command  line: 

A>saytext  hello.dat 


D 


Error  codes  may  be  returned  directly  by  the  SAYTEXT 
program  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
3.3.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 
Reference,  Vol  1. 
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ERROR  CODES 


Command  Error  Code 

Open  0 

2 

16 

64 

Claimhdw  0 

2 

4 

16 

32 

48 


Conndtop  0 

2 

4 

16 

32 

64 


Explanation 
Successful 
API  inoperative 
RCB  not  available 
Invalid  card  number 

Successful 

Card  Inoperative 

RCB  invalid  or  not  open 

At  least  one  resource  seized 

Unsupported  hardware 

Combination  of  16  and  32 

above 

Successful 

Card  inoperative 

RCB  invalid  or  not  open 

Port  or  devices  not  claimed 

Unsupported  devices 

Unsupported  connection 


Connftop  0 

2 

( cont .  ) 
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Successful 
Card  inoperative 


mmmm 


128 


No  null  found  In  text 


Close 


256  Pause  pending  (must  call 

resume  first) 

0  Successful 

2  Card  inoperative 

4  RCB  invalid  or  not  open 


Table  3.3 


If  a  return  code  other  than  0  is  returned  when  a 
command  within  the  SPEAK  procedure  is  executed  by  the 
driver,  then  a  message  is  written  to  the  console  telling 
which  command  returned  the  error  and  which  error  code  was 
returned.  The  only  ones  which  a  user  might  see  are  error 
codes  16  or  64  from  the  speak  command.  This  usually 
indicates  that  the  end  of  sentence  punctuation  was  not 
provided  when  the  SPEAK  procedure  was  called. 

A  programmer  may  desire  that  the  procedure  not  notify 
the  user  if  an  error  code  is  returned  and  this  logic  is 
easily  deleted  from  the  SPEAK  procedure.  It  is  basically 
incorporated  as  an  aid  in  development  when  first  installing 
the  speech-to-text  software  and  hardware  to 
errors  that  might  occur. 


track 


down 


INPUT  AND  OUTPUT  FORMATS  AND  DESCRIPTIONS 


Input  to  the  SAYTEXT  program  is  a  text  file  consisting 
of  any  number  of  sentences  composed  of  240  or  fewer  ASCII 
text  characters  that  end  with  a  sentence  terminator,  either 
a  period  (.),  a  question  mark  (?),  or  an  exclamation  point 
(  !  )  . 

Output  is  in  the  form  of  intelligible  spoken 
translation  of  the  text  that  is  input.  Other  output  is  in 
the  form  of  error  messages  directly  to  the  user  console. 


REFERENCES : 


IBM  Installation  and  Setup  Voice 
Communicat ions ,  6280711 


IBM  Voice  Communication  Applications 
Program  Interface  Reference ,  Vol  1  & 
6280743 


Text-t o-Speech  Interface  for  the  IBM  Voice 
Communications  Adapter ,  Talbot,  Summer 
1987 
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INTRODUCTION 


SAYTEXT  is  a  program  written  in  Turbo  Pascal,  Version 
3.0,  that  allows  a  user  to  have  text  in  a  file  translated 
into  intelligible  spoken  language.  The  program  provides  a 
quick  and  easy  way  of  producing  speech  from  a  text  file 
entered  at  the  DOS  command  line  as  a  parameter  to  the 
program. 

For  example,  to  have  the  text  in  the  file  text.fil 
translated  into  voice,  the  user  would  enter  "saytext 
text.fil"  at  the  DOS  command  prompt.  This  command  will 
activate  the  SAYTEXT  program  and  cause  the  text  within 
text.fil  to  be  voiced  over  a  speaker.  A  user  must  assure 
that  both  the  IBM  Voice  Communications  Adapter  (hardware) 
and  the  IBM  Voice  Communications  Operating  System 
(software)  are  installed  on  the  machine  at  which  they  are 
working  for  the  SAYTEXT  program  to  work  correctly. 

Text-to-speech  translation  is  made  possible  by  use  of 
the  SPEAK  procedure  which  serves  as  an  interface  to  the  IBM 
Voice  Communications  Operating  System  which  in  turn  drives 
the  IBM  Voice  Communications  Adapter  that  produces 
intelligible  speech  from  text. 
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SYSTEM  SPECIFICATIONS 


Both  the  IBM  Voice  Communications  Operating  System 
and  the  IBM  Voice  Communications  Application  Program 
Interface  software  are  required  for  operation  of  the 
SAYTEXT.COii  program.  Details  on  installation  are  provided 
below. 

Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications ,  6280711 .  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  IBM  Voice 
Communications  Application  Program  Interface  (the  software 
driver)  may  be  found  in  IBM  Voice  Commun i cat i ons 
Application  Program  Interface  Reference  Vol  1  Chap  2, 
6280743.  The  software  resides  in  a  subdirectory,  either  on 
a  hard  drive  or  floppy  diskette  named  vcapi .  The  Voice 
Communications  Operating  Subsystem  Program  diskette  is  self 
installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
f loppy  disks  . 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 


s'  s‘  s'  s'  s 


set  vcapi  =  y:\vcapi\ 


(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  he  API 
code  .  ) 

y:\vcapi\vcapidrv  /o  10 


(the  /o  10  option  allows  the  text-to-speech  function  to 
to  be  loaded  when  the  API  driver,  vcapidrv,  is  loaded  at 
boot  time. ) 


HARDWARE  REQUIREMENTS 

Minimum  hardware  requirements  are  given  in  Table  3.4. 

MINIMUM  HARDWARE  REQUIREMENTS 


IBM  PC/AT/XT  or  compatibles 
256  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double¬ 
sided  diskette  drive  (360  KB  / 

1.2  MB)  and  one  fixed  disk 
( cont . ) 
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Monochrome  or  color  monitor 
An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of  handling 
two  watts  of  audio  power  with  an 
attached  subminiature  2.5  mm 
(0.1  inch)  connector) 


Table  3 . 4 


SOFTWARE  REQUIREMENTS 

Minimum  software  requirements  are  given  in  Table  3.5. 

MINIMUM  SOFTWARE  REQUIREMENTS 


-  DOS  2.10  or  higher  for  IBM  PC/AT  or 
DOS  3.00  or  higher  for  IBM  XT 
IBM  Voice  Communications  Operating 
Subsystem  Program 
Turbo  Pascal,  Version  3.0 
(for  compilation  purposes  only) 


SAYTEXT.COM 


DESIGN  DETAILS 


The  SAYTEXT.COM  program  was  developed  to  allow  a  user 
to  produce  speech  from  any  ASCII  text  file.  The  filename 
of  a  file  which  contains  an  unlimited  number  of  complete 
sentences  is  passed  to  the  program  as  a  parameter  on  the 
command  line.  The  file  is  then  read  in  sentence-by¬ 
sentence  and  stored  in  a  linked  list.  Next,  each  sentence 
is  passed  to  the  SPEAK  procedure,  which  serves  as  an 
interface  to  the  IBM  Voice  Communications  Adapter  which 
translates  text  into  speech. 


IMPLEMENTATION  DETAILS 

The  SAYTEXT.COM  program  uses  the  SPEAK  procedure 
(see  reference  3)  to  interface  the  IBM  Voice  Communications 
Interface  Program  to  issue  commands  to  the  IBM  Voice 
Communications  Adapter.  The  filename  of  a  file  which 
contains  sentences  composed  of  up  to  240  standard  ASCII 
text  characters  is  passed  as  a  parameter  on  the  command 
line.  The  text  file  can  have  an  unlimited  number  of 
sentences  and  each  sentence  must  end  with  a  period  (.),  a 
question  mark  (?),  or  an  exclamation  point  (!).  If  an 
invalid  filename  is  passed  as  the  parameter,  then  the 
program  aborts  and  notifies  the  user  that  the  filename 


does  not  exist.  For  valid  filenames,  the  file  is  read  in 
one  sentence  at  a  time  into  a  linked  list  to  reduce  disk 
access  time.  Once  the  entire  file  is  read  in,  then  each 
sentence  is  passed  to  the  SPEAK  procedure  to  be  spoken. 

Pitch  and  rate  of  speech  are  set  to  65  and  170  words 
per  minute  within  the  SAYTEXT  program.  If  the  user  desires 
to  change  these  rates,  they  may  change  the  parameters 
passed  in  the  call  to  the  SPEAK  procedure  within  the 
program  and  recompile  the  program.  When  recompiling,  make 
sure  that  the  option  to  produce  a  .COM  file  has  been 
selected  from  within  Turbo  Pascal.  For  a'dditional 
information  on  the  SPEAK  procedure  and  pitch  and  rate,  see 
the  reference  3  given  at  the  end  of  this  guide. 

An  example  use  of  the  SAYTEXT  program  follows: 

if  the  file  named  HELLO.DAT  contains  the  following  text: 

Hello  all!  It  is  so  nice  of  you  to  visit.  Will  you 
come  in  and  stay  for  awhile? 

then  to  have  the  passage  spoken,  enter  the  following  at  the 
DOS  command  line: 
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A>saytext  hello.dat 


i 


Error  codes  may  be  returned  directly  by  the  BAYTEXT 


program  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
3.6.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 


Reference,  Vol  1 


Command 


Open 


Claimhdw 


SSSsaS 


ERROR  CODES 


Error  Code 


Explanation 


Successful 


API  inoperative 


RCB  not  available 


Invalid  card  number 


Successful 


Card  Inoperative 


RCB  invalid  or  not  open 


At  least  one  resource  seized 


Unsupported  hardware 


Combination  of  16  and  32 


above 


( cont . 
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Conndtop 


0 


Successful 


j. 
v  v. 


r  V  * 

-j/.* 

I 

fty 

Nv> 

v# 

r.v/ 


2 

4 

16 

32 

64 


8 

16 


Card  inoperative 
RCB  invalid  or  not  open 
Port  or  devices  not  claimed 
Unsupported  devices 
Unsupported  connection 


Hi! 

Connf top 

0 

Successful 

ft 

2 

Card  inoperative 

/\\ 

4 

CID  invalid 

• 

16 

Port  or  partition  not  claimed 

,  ■ »  - 

32 

Function  set  not  known 

1 

fA 

l'.-\ 

64 

Function  set  not  accessible 

128 

Insufficient  storage 

f- 

1 

256 

Port  not  specified 

ft: 

512 

Function  set  already 

connected  to  CID 

fts 

ft" 

1024 

Unsupported  concurrency 

V/v 

2048 

Function  set  cannot  be  held 

• 

fcft 

by  partition 

V- 

4096 

Invalid  configuration 

Initialize 

ft- 

0 

Successful 

*  •  , 

'-Vv- 

4 

Function  set  not  connected 

Busy  (re-entrant  call) 
Function  set  not  stopped 
( cont .  ) 
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Speak 

0 

Successful 

4 

Function  set  not  connected 

8 

Busy  (re-entrant  call) 

16 

Syntax  error 

32 

Pause  command  received 

64 

Input  buffered  since  no 

sentence  terminator  provided 

128 

No  null  found  in  text 

256 

Pause  pending  (must  call 

resume  first) 

Close 

0 

Successf ul 

2 

Card  inoperative 

4 

RCB  invalid  or  not  open 

Table  3.6 

If  a  return  code  other  than  0  is  returned  when  a 
command  within  the  SPEAK  procedure  is  executed  by  the 
driver,  then  a  message  is  written  to  the  console  telling 
which  command  returned  the  error  and  which  error  code  was 
returned.  The  only  ones  which  a  user  might  see  are  error 
codes  16  or  64  from  the  speak  command.  This  usually 
indicates  that  the  end  of  sentence  punctuation  was  not 
provided  when  the  SPEAK  procedure  was  called. 
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A  programmer  may  desire  that  the  procedure  not  notify 
the  user  if  an  error  code  is  returned  and  this  logic  is 
easily  deleted  from  the  SPEAK  procedure.  It  is  basically 
incorporated  as  an  aid  in  development  when  first  installing 
the  speech-to-text  software  and  hardware  to  track  down 
errors  that  might  occur. 


PROGRAM  LISTING 


{********************************************************** 
The  SAYTEXT  program  causes  the  text  in  the  file,  whose  name 
is  passed  as  a  parameter,  to  be  spoken.  The  file  should  be 
in  regular  ASCII  characters  similiar  to  this  passage 
following  all  rules  of  normal  punctuation.  The  length  of 
the  input  file  is  unlimited.  The  text  is  first  read  into  a 
linked  list  then  each  node  of  the  linked  list  is  spoken. 


Example : 


if  the  file  named  HELLO.DAT  contains  the  following  text: 

Hello  all!  It  is  so  nice  of  you  to  visit.  Will  you 
come  in  and  stay  for  awhile? 

then  to  have  the  passage  spoken,  enter  the  following 
command : 

saytext  hello.dat 

**********************************************************} 
program  saytext; 

{ $V- }  {compiler  directive  to  relax  length  of  parameter 
strings  passed} 

type  longstr  =  string[240);  {length  of  text  string  to 

speak } 

filname  =  string[66);  {file  name  passed} 

buffer  =  array { 1 .. 240 ]  of  char;  {temporary  buffer 

storage } 


{ft******  RECORD  for  linked  list  node  ************ 
LllstNod  =  '“SNode; 

SNode  =  record 

txt :  longstr; 
next:  LlistNod; 
prior:  LlistNod; 

end ; 

********  RECORD  FOR  LINKED  LIST  HEADER  ************ 
Slist  =  -“SHead; 

SHead  =  record 

length :  integer ; 
first:  LlistNod; 

Last:  LlistNod; 


end ; 


data 


: f ilname; 


datafile  :text; 

i  ,  j  :  integer ; 

LList  :Slist; 

node  :LListnod; 

Str240  :longstr; 

chin  :char; 

buf  :buf£er; 


{buffer  to  hold  file  name 
that  is  passed* 

(assigned  to  the  filename* 
{counter  for  nodes  and 
chars  * 

{the  head  node* 

{pointer  to  keep  track  of 
current  node* 

{buffer  for  string* 

{char  read  in* 

{used  to  manipulate  data* 


*********************************************************** 
{*  function  to  test  for  existence  of  a  file  *} 

*********************************************************** 
Function  Exist ( f i lename :  filname):  boolean; 

var  fil  :file; 

begin 

assign(fil,filename) ; 

{$1-} 

reset (fil); 

{$1  +  } 

exist:=  (IOresult  =  0) 
end; { function  exist} 

{********************************************************** 
*Node_Ptr ;  RETURNS  A  PTR  TO  CURRENT  NODE  OF  LINKED  LIST 
************************************************************ 

Function  Node_Ptr ( pos :  integer):  LlistNod; 


i :  integer; 

nd :  LlistNod; 


W, 


Begin 

nd  :=  LI ist".  first; 
for  i  :=  2  to  pos  do 
nd  :=  nd".next; 
Node_Ptr  :  =  nd; 

End ; 


{********************************************************** 

*  CreateLst;  CREATES  HEADER  FOR  LINKED  LIST  FOR  TEXT  LINES* 
***********************************************************} 

Function  CreateLst:  Slist; 

Var 

thishead:  Slist; 

Begin 

new( thishead ) ; 
thishead" . length  :=  0; 
thishead" . first  :=  nil; 
thishead" . last  :=  nil; 

CreateLst  :=  thishead; 

End ; 


{********************************************************** 
*  Make_Node; CREATES  NEW  NODE  FOR  LINKED  LIST  * 


Function  Make_Node ( dat :  longstr;  prev,  nxt :  LlistNod): 

LI istNod ; 

Var 

thisone:  LlistNod; 

Begin 

new( thisone ) ; 

thisone". txt  :=  Copy ( dat , 1 , Length ( dat )) ; 
thisone ". pr ior  :=  prev; 
thisone" . next  :=  nxt; 

Make_Node  :=  thisone; 

End; 

{********************************************************** 

*  APP_L1 ist ;  APPENDS  A  NODE  ONTO  LINKED  LIST  * 

**********************************************************} 
Procedure  App_Ll ist (dat :  longstr); 


Var 


thisone:  LlistNod; 


Begin 

if  Llist" . first  =  nil  then 
begin 

thisone  :=  Make_Node ( dat ,  ni 1 ,  ni  1 )  ; 

Llist". last  :=  thisone; 

Llist". first  :=  thisone; 
end 
else 
begin 

thisone  :=  Make_Node ( dat , LI ist " . last , ni 1 ) ; 

Ll ist" . last" . next  :=  thisone; 

Llist". last  :=  thisone; 
end ; 

Ll ist ". length  :=  Ll ist ". length  +  1; 

End ; 


{********************************************************** 

*  DelHere ;  DELETES  A  NODE  FROM  THE  TEXT  LINKED  LIST  AND  * 

*  RETURNS  THE  TEXT  STRING  FROM  THAT  NODE  * 


Function  DelHere(pos:  integer):  longstr; 
Var 


temp:  LlistNod; 


Begin 

temp  :=  Llist" . first; 
if  pos  =  1  then 
begin 

Llist". first  :=  temp". next; 
if  Llist". first  <>  nil  then 
Ll ist" . f irst" . pr ior  :=  nil; 

end 

else 

begin 

temp  :=  Node_Ptr ( pos ) ; 
temp" .prior". next  :=  temp". next; 
if  temp". next  =  nil  then 
Llist". last  :=  temp". prior 
else 

temp" . next" . pr ior  :=  temp". prior; 

end ; 

DelHere  :=  temp".txt; 

Dispose ( temp )  ; 

Llist". length  : =  Llist". length  -  1; 


J********************************************************** 

*  DEALL_LI ST ;  * 

**********************************************************} 
Procedure  Deall_List; 

Var 

Tx  :  String  t  80  ] ; 

Begin 

while  LI ist ~ . length  >  0  do 
Tx  :=  DelHere(l); 

Dispose ( LI ist ) ; 

End ; 

{$1  bispeak, inc}  {speech  interface  procedure} 

begin 

data : =paramstr ( 1 ) ;  (get  the  file  name  passed  as 


reset (datafile ) ; 
LList : =CreateLst; 


ta : =paramstr ( 1 ) ;  {get  the  file  name  passed  as 

a  parameter} 

if  exist(data)  then  {see  if  the  filename  is 

valid} 

begin  {do  this  if  filename  valid 

else  tell  user} 

assign(dataf ile,data ) ;  {assign  var  datafile  to  the 

string  name} 

reset (datafile  ) ;  {get  the  file  ready  to  read} 

LList : =CreateLst;  (create  a  head  node} 

while  not  eof ( dataf i le )  do 

begin  {begin  while  not  eof...} 

j:=l;  {initialize  char  counter} 

repeat 

r ead ( dataf i le , chin ) ;  {read  char  in} 
buf [ j I : =chin;  {put  it  in  an  array} 

j:=j+l;  {increment  the  index} 

until  (chin  in  I'.','?','!'])  or  (  j  >  240)  or 
eof (datafile  ) ; 

{stop  for  end  of  sentence  or 
buffer  full  or  end  of  file} 
Str 2 40 : =copy ( buf , 1, j -1 ) ;  {creates  a  complete 

sentence } 

APP_LList ( Str 240 ) ;  {add  it  to  the  array} 
end;  {while  not  eof (dataf ile ) } 

close (dataf  i  le  ) ;  {remember  to  close  the  file} 

node : =LList~ . first;  {set  pointer  to  first  node} 

for  i  :  =  1  to  LList'' .  length  do 

begin  {for  i : = 1  to  LList...} 

speak ( node" . txt, 65, 175 ) ;  {speak  the  current  line} 
node : =node ~ . next ;  {move  the  pointer  up} 

end;  {for  i:=l  to  LList...} 

Deall_List;  {delete  all  the  nodes} 

end  {while  not  eof...} 
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wr  iteln(data,  '  does  not  exist.'); 

(error  message  if  file  does  not 
exist } 

end.  (program  SAYTEXT} 
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INTRODUCTION 


REMIND  is  a  program  written  in  Turbo  Pascal,  Version 
3.0,  that  provides  the  user  with  the  ability  to  have 
prepared  messages  spoken  at  desired  times.  When  the 
program  is  first  started,  the  user  is  prompted  for  messages 
and  the  time  when  each  message  should  be  spoken.  Once  the 
user's  desired  schedule  is  correct,  the  program  becomes 
memory  resident  and  any  other  normal  activity  may  be 
resumed.  At  the  designated  times,  each  message  will  be 
spoken . 

The  user  can  review/revise  the  schedule  or  terminate 
the  REMIND  program  at  any  time  by  entering  the  keystroke, 
ALT/F7.  Messages  are  limited  to  127  regular  ASCII  text 
characters  and  must  end  with  termination  punctuation, 
either  a  period  (.),  a  question  mark  (?),  or  an  exclamation 
point  (  !  )  .  Times  are  input  using  a  twenty-four  hour  clock 
in  the  format  hh:mm.  For  example,  ten  o'clock  a.m.  is 
entered  as  10:00  while  three  thirty-four  p.m.  is  entered  as 
15:34. 

Text-to-speech  translation  is  made  possible  by  use  of 
the  SPEAK  procedure  which  serves  as  an  interface  to  the  IBM 
Voice  Communications  Operating  System  which  in  turn  drives 
the  IBM  Voice  Communications  Adapter  that  produces 
intelligible  speech  from  text.  A  user  must  assure  that 
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both  the  IBM  Voice  Communications  Adapter  (hardware)  and 
the  IBM  Voice  Communications  Operating  System  (software) 
are  installed  on  the  machine  at  which  they  are  working  for 
the  REMIND  program  to  work  correctly. 

This  guide  is  intended  to  simplify  the  task  of  a  user 
wishing  to  produce  speech  from  text  at  designated  times. 
The  sections  following  will  discuss  hardware  and  software 
requirements  that  are  necessary  to  use  this  program.  Also, 
installation  instructions  for  using  REMIND  will  be 
discussed.  An  overview  of  using  the  REMIND  program  is 
covered  under  the  operating  instructions  section  and  an 
example  is  provided.  Next,  input  and  output  formats  and 
descriptions  are  discussed.  Finally,  references  for 
further  investigation  are  provided. 

HARDWARE  AND  SOFTWARE  REQUIREMENTS 

Hardware : 

Minimum  hardware  requirements  are  given  in  Table  4.1. 


MINIMUM  HARDWARE  REQUIREMENTS 

IBM  PC/AT/XT  or  compatibles 
256  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double¬ 
sided  diskette  drive  (360  KB  / 

1.2  MB)  and  one  fixed  disk 
Monochrome  or  color  monitor 
An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of 
handling  two  watts  of  audio 
power  with  an  attached 

subminiature  2.5  mm  (0.1  inch)  connector) 

Table  4.1 

Software : 

Minimum  software  requirements  are  given  in  Table  4.2. 


MINIMUM  SOFTWARE  REQUIREMENTS 


DOS  2.10  or  higher  for  IBM  PC/AT  or 

DOS  3.00  or  higher  for  IBM  XT 

IBM  Voice  Communications  Operating 

Subsystem  Program 

Turbo  Pascal,  Version  3.0 

(for  compilation  purposes  only) 


-  REMIND.COM 


Table  4.2 


INSTALLATION  INSTRUCTIONS 


Installation  instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  IBM  Voice 
Conununi cat ions  Application  Program  Interface  (the  software 
driver)  may  be  found  in  IBM  Voice  Communications 
Application  Program  Interface  Reference  Vol  1  Chap  2, 
6280743.  The  software  resides  in  a  subdirectory,  either  on 
a  hard  drive  or  floppy  diskette  named  vcapi .  The  Voice 
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Conununi  cat  ions  Operating  Subsystem  Program  diskette  is  self 


installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
floppy  disks. 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 
in  the  autoexec.bat  file: 

set  vcapi  »  y:\vcapi\ 

(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code .  ) 


y:\vcapi\vcapidrv  /o  10 

(the  /o  10  option  allows  the  text-to-speech  function  to  be 
loaded  when  the  API  driver,  vcapidrv,  is  loaded  at  boot 
time.  ) 


OPERATING  INSTRUCTIONS 

To  activate  the  REMIND  program,  enter  remind  at  the 
DOS  command  line  then  follow  the  instructions  provided.  Up 
to  fifteen  separate  messages  and  designated  times  may  be 
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Input.  If  less  than  the  fifteen  messages  are  desired,  then 
the  user  may  enter  'q*  or  'Q'  to  quit  at  any  time.  When 
all  desired  messages  have  been  entered,  the  schedule  will 
be  displayed  for  the  user  to  review  and  revise  as  desired. 
Once  correct,  the  program  and  schedule  become  memory 
resident  and  control  returns  to  the  DOS  command  line.  The 
program  begins  checking  the  time  every  15  seconds  and 
compares  this  time  to  the  times  within  the  schedule.  If 
the  times  match,  then  the  associated  message  is  voiced 
through  an  attached  speaker.  The  user  may  enter  an  ALT/F7 
at  any  time,  even  from  within  other  programs,  to 
review/revise  the  schedule  or  terminate  the  REMIND  program. 


An  example  session  using  the  REMIND  program  follows 
User  input  is  italicized. 


The  user  enters  remind  to  activate  the  program  in 
Figure  4.1. 


Time  2?  (hh:mm) 


Q  to  quit. 


16:00  I 
Message  2?  Punctuation  required.  I 
Four  o'clock.  Time  to  go  home.  I 


Figure  4.3 

Figure  4.4  demonstrates  when  the  user  has  completed 
inputting  entries. 


I  Entry  #1  10:30  Time  is  ten-thirty.  It's  coffee  break  I 


I  time. 

I  Entry  #2  16:00  Four  o'clock.  Time  to  go  home. 

I  Correct?  (Y/N) 


Figure  4.5 

I  f  the 

user  enters  *  N '  or  ' 

n ' ,  then 

the  screen  in 

Figure  4.6  is 

displayed,  if  'Y'  or 

' y ' ,  then 

Figure  4.7  is 

shown . 

Enter  the  number  of  the  entry  to  change  or 
enter  FF : FF  in  an  entry's  time  field  to  delete  the 
entry  or 


enter  3  to  add  a  new  entry  or 

enter  0  to  reaccomplish  the  entire  table  or 

enter  99  to  return  with  no  changes. 


Once  the  schedule  Is  correct,  the  user  enter  'Y'or  '  y ' 
and  the  program  becomes  memory  resident  and  the  user  sees 
the  screen  in  Figure  4.7  before  the  DOS  command  line  is 


returned . 


********************************************************1 

****  Remind  System  is  now  resident  ***l 
****  Enter  ALT-F7  to  review/revise  schedule  ***l 
****  or  terminate  program.  ***[ 
******************************************************** | 


Figure  4.7 


If  at  any  time  thereafter,  the  user  enters  ALT/F7,  the 
screen  in  Figure  4.8  is  displayed. 
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Enter  R  to  review/revise  schedule  or  T  to  terminate. 


Figure  4.8 

Error  codes  may  be  returned  directly  by  the  REMIND 
program  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
4.3.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 


Reference ,  Vol  1. 


4 


Cl D  invalid 


Initialize 


Speak 


vvv/Iv'r' 


1024 


2048 


4096 


Port  or  partition  not  claimed 


Function  set  not  known 


Function  set  not  accessible 


Insufficient  storage 


Port  not  specified 


Function  set  already 


connected  to  CID 


Unsupported  concurrency 


Function  set  cannot  be  held 


by  partition 


Invalid  configuration 


Successful 


Function  set  not  connected 


Busy  (re-entrant  call) 


Function  set  not  stopped 


Successful 


Function  set  not  connected 


Busy  (re-entrant  call) 


Syntax  error 


Pause  command  received 


Input  buffered  since  no 


sentence  terminator  provided 


( cont .  ) 
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Communications  Operating  Subsystem  Program  diskette  is  self 
installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
floppy  disks . 

To  load  the  operating  system  and  the  required  speech- 
to-text  function,  the  following  commands  should  be  placed 

in  the  autoexec.bat  file: 

set  vcapi  =  y:\vcapi\ 

(where  y  is  the  drive  containing  the  vcapi  directory  and 
vcapi  is  the  name  of  the  DOS  directory  containing  the  API 
code .  ) 

y:\vcapi\vcapidrv  /o  10 

(the  /o  10  option  allows  the  text-to-speech  function  to  be 
loaded  when  the  API  driver,  vcapidrv,  is  loaded  at  boot 
time. ) 


HARDWARE  REQUIREMENTS 


Minimum  hardware  requirements  are  given  in  Table  4.4. 


MINIMUM  HARDWARE  REQUIREMENTS 


IBM  PC/AT/XT  or  compatibles 
256  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double¬ 
sided  diskette  drive  (360  KB  / 

1.2  MB)  and  one  fixed  disk 
Monochrome  or  color  monitor 
An  IBM  Voice  Communications  Adapter 
Speaker  (8-ohm,  capable  of  handling 
two  watts  of  audio  power  with  an 
attached  subminiature  2 . 5  mm 
(0.1  inch)  connector) 


Table  4.4 


SOFTWARE  REQUIREMENTS 


Minimum  software  requirements  are  given  in  Table  4. 
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MINIMUM  SOFTWARE  REQUIREMENTS 


DOS  2.10  or  higher  for  IBM  PC/AT  or 

DOS  3.00  or  higher  for  IBM  XT 

IBM  Voice  Communications  Operating 

Subsystem  Program 

Turbo  Pascal,  Version  3.0 

(for  compilation  purposes  only) 

-  REMIND.COM 


Table  4.5 


DESIGN  DETAILS 


The  REMIND.COM  program  uses  a  memory  resident  shell 
and  the  SPEAK  procedure  (see  reference  3)  to  interface  the 
IBM  Voice  Communications  Interface  Program  to  issue 
commands  to  the  IBM  Voice  Communications  Adapter.  A 
message  that  is  entered  to  be  spoken  at  a  specific  time  is 
spoken  when  the  internal  machine  time  matches  the  desired 
time  for  speech. 
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IMPLEMENTATION  DETAILS 


To  activate  the  REMIND  program,  enter  remind  at  the 
DOS  command  line  then  follow  the  instructions  provided.  Up 
to  fifteen  separate  messages  and  designated  times  may  be 
input.  If  less  than  the  fifteen  messages  are  desired,  then 
the  user  may  enter  'q'  or  'Q*  to  quit  at  any  time.  When 
all  desired  messages  have  been  entered,  the  schedule  will 
be  displayed  for  the  user  to  review  and  revise  as  desired. 
Once  correct,  the  program  and  schedule  become  memory 
resident  and  control  returns  to  the  DOS  command  line.  The 
program  begins  checking  the  time  every  15  seconds  and 
compares  this  time  to  the  times  within  the  schedule.  If 
the  times  match,  then  the  associated  message  is  voiced 
through  an  attached  speaker. 

The  user  may  enter  an  ALT/F7  at  any  time,  even  within 
other  programs,  to  review/revise  the  schedule  or  terminate 
the  REMIND  program. 

Several  variables  may  be  changed  within  the  program. 
First,  the  time  that  the  program  goes  out  to  check  the 
current  time  is  set  to  15  seconds.  This  may  be  changed  by 

changing  the  variable  TIMER TIME  to  the  desired  time  in 

seconds.  Next,  the  hot  key,  ALT/F7,  may  be  changed  by 
changing  the  constant  Our_HotKey  to  the  desired  scan  code. 
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Third,  the  constant  MaxMsg  may  be  set  to  the  maximum  number 


of  messages  desired.  It  is  currently  set  to  15.  The 
program  is  written  in  Turbo  Pascal,  Version  3.0.  The 
memory  resident  shell  was  taken  in  part  from  The  Hunter's 
Helper,  by  Lane  Ferris,  et.  al.  When  resident,  the  program 
takes  approximately  34K  of  memory. 

The  main  program,  REMIND. PAS,  requires  several  include 
files  for  compilation.  These  are  given  in  Table  4.6. 

FILES  REQUIRED  FOR  REMIND. PAS  COMPILATION 


SPEAK. INC: 

Interface  to  IBM  Voice  Communications 

Adapter 

STAYWNDO . 341 : 

Used  to 

create  popup  windows 

STAYXIT . 420 : 

Used  in 

program  termination 

STAYSUBS. 420 : 

Common  subroutines 

STAYI16 . 410 : 

Handles 

interrupt  16  calls 

STAYI13 . 410 : 

Handles 

interrupt  13  calls 

STAYI21. 410 : 

Handles 

interrupt  21  calls 

STAY I 8 . 420 : 

Handles 

interrupt  8  calls 

STAYI28 .410 : 

Handles 

interrupt  28  calls 

STAYS AVE. 420 : 

Saves  OS 

system  structures 

STAYRSTR . 420 : 

Used  to 

terminate  and  remain  resident 

CLKI8.410: 

Provides 

the  timer 

Table  4.6 
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Enter  the  time  (hh:mm)  then  the  message  you  wish  spoken. 
Time  range  is  00:00-23:59.  Message  is  a  maximum  of  127 
characters.  15  different  messages  may  be  entered. 


Time  1?  (hh:mm)  Q  to  quit. 

10:30 

Message  1?  Punctuation  required. 

Time  is  ten-thirty.  It's  coffee  break  time. 


Figure  4.10 

The  screen  for  second  and  succeeding  entries  appear 
in  Figure  4.11. 


I  Time  2?  (hh:nun)  Q  to  quit. 

I  16:00 

I  Message  2?  Punctuation  required. 


Four  o'clock.  Time  to  go  home. 


Figure  4.12  demonstrates  when  the  user  has  completed 


UIIUIKI  *■  *l*<J*i  •  ■  ’»«««* 


inputting  entries. 


i 


Time  3?  (hh:mm)  Q  to  quit. 

<? 


Figure  4.12 

Next,  in  Figure  4.13,  the  user  is  allowed  to  review 
information  that  has  been  input. 


Entry  #1 

10:30 

Time  13  ten-thirty. 

It's 

coffee  break 

time. 

Entry  #2 

16 : 00 

Four  o'clock.  Time 

to  go 

home . 

Correct? 

( Y/N) 

If 

the  user  enters 

'N' 

or  1  n ' ,  then  the  screen 

in 

Figure  4 

.14  is  displayed, 

if 

'Y'  or  '  y '  ,  then  Figure  4 

.15 

is  shown. 

Enter  the  number  of  the  entry  to  change  or 
enter  FF : FF  in  an  entry's  time  field  to  delete  the 
entry  or 

enter  3  to  add  a  new  entry  or 

enter  0  to  reaccomplish  the  entire  table  or 

enter  99  to  return  with  no  changes. 


Figure  4.14 


Once  the  schedule  is  correct,  the  user  enter  'Y'or  'y' 
and  the  program  becomes  memory  resident  and  the  user  sees 
the  screen  in  Figure  4.15  before  the  DOS  command  line  is 
returned . 


I  ********************************************************  I 

I  ****  Remind  System  is  now  resident  ***l 

I  ****  Enter  ALT-F7  to  review/revise  schedule  ***l 


j  **** 


or  terminate  program. 


***  I 


Error  codes  may  be  returned  directly  by  the  REMIND 
program  to  the  user  console  whenever  an  abnormal  return 
code  (one  other  than  0)  is  returned  from  the  Voice  Driver. 
A  quick  synopsis  of  these  error  codes  is  given  in  Table 
4.7.  For  a  more  complete  description,  consult  the  IBM 
Voice  Communications  Application  Program  Interface 
Reference ,  Vol  1. 


ERROR  CODES 


Command 


Error  Code 


Explanation 


Open 


Successful 


API  inoperative 
RCB  not  available 


Invalid  card  number 


Cla imhdw 


Successful 


Card  Inoperative 

RCB  invalid  or  not  open 


At  least  one  resource  seized 


Unsupported  hardware 


Combination  of  16  and  32 


above 


( cont .  ) 


118 


Conndtop 


0 


Successful 


Connf top 


Initialize 


2  Card  inoperative 

4  RCB  invalid  or  not  open 

16  Port  or  devices  not  claimed 

32  Unsupported  devices 

64  Unsupported  connection 


0 

2 

4 

16 

32 

64 

128 

256 

512 

1024 

2048 

4096 


Successful 
Card  inoperative 
CID  invalid 

Port  or  partition  not  claimed 
Function  set  not  known 
Function  set  not  accessible 
Insufficient  storage 
Port  not  specified 
Function  set  already 
connected  to  CID 
Unsupported  concurrency 
Function  set  cannot  be  held 
by  partition 
Invalid  configuration 


0  Successful 

4  Function  set  not  connected 

8  Busy  (re-entrant  call) 

16  Function  set  not  stopped 


( cont .  ) 


speak 


0 


Successful 


4  Function  set  not  connected 

8  Busy  (re-entrant  call) 

16  Syntax  error 

32  Pause  command  received 

64  Input  buffered  since  no 

sentence  terminator  provided 
128  No  null  found  in  text 

256  Pause  pending  (must  call 

resume  first) 

Close  0  Successful 

2  Card  inoperative 

4  RCB  invalid  or  not  open 

Table  4.7 

If  a  return  code  other  than  0  is  returned  when  a 
command  within  the  SPEAK  procedure  is  executed  by  the 
driver,  then  a  message  is  written  to  the  console  telling 
which  command  returned  the  error  and  which  error  code  was 
returned.  The  only  ones  which  a  user  might  see  are  error 
codes  16  or  64  from  the  speak  command.  This  usually 
indicates  that  the  end  of  sentence  punctuation  was  not 
provided  when  the  SPEAK  procedure  was  called. 


A  programmer  may  desire  that  the  procedure  not  notify 
the  user  if  an  error  code  is  returned  and  this  logic  is 
easily  deleted  from  the  SPEAK  procedure.  It  is  basically 
incorporated  as  an  aid  in  development  when  first  installing 
the  speech-to-text  software  and  hardware  to  track  down 
errors  that  might  occur. 


PROGRAM  LISTING 


{  $R+ } 

{$C-} 

t$V-} 

PROGRAM  REMIND; 

(This  program  is  a  memory  resident  program  that  drives  the 
IBM  voice  applications  software  and  hardware  board.  When 
first  loaded,  it  allows  input  of  messages  to  be  spoken  and 
the  time  when  they  should  be  spoken.  Interface  to  the  board 
is  made  through  the  procedure  speak.  After  the  user  is 
prompted  for  input  (messages  and  times),  the  program 
terminates  and  becomes  memory  resident.  Access  to  the 
schedule  for  review/revision  or  to  terminate  the  program 
can  be  made  by  entering  ALT-F7.} 


{*****  CONSTANTS  ******************} 
const 

{the  next  field  is  needed  for  the  windo.inc  routines  } 


MaxMsg 

= 

15; 

{maximum  number  of  messages 

to 

be  in  schedule} 

MaxWi  n 

= 

10; 

{Max  number  of  windows  open 

at 

one  time  } 

Esc 

= 

#27; 

{character  equivalent  of  Escape 

Key} 

Alt 

= 

08; 

{Shift  bits  at  40:17  } 

Ctrl 

= 

04; 

Le  f  t_Sh  i.  ft 

= 

02; 

Rght_Shi f t 

= 

01; 

BIOS  1 8  =  8;  {Bios  Timer  interrupt} 

BIOSI 16  =  $16;  {Bios  Keyboard  interrupt) 

BIOSI13  =  $13;  {Bios  Disk  interrupt) 

DOSI21  =  $21;  {DOS  service  router  interrupt) 

DOSI28  =  $28;  {DOS  Idle  interrupt) 

{ - T  Y  P  E  D  E  C  L  AR  AT  I  0  N  S - } 

Type 

Regtype  =  record 

Ax, Bx, Cx, Dx, Bp, Si , Di , Ds , Es, Flags : integer 
end ; 

HalfRegtype  =  record 

A1 ,  Ah,  B1 , Bh , Cl , Ch, Dl , Dh : byte 
end ; 

£ ilename_type  =  string[64); 

Vector  =  record  {  Interrupt  Vector  type  ) 

IP,CS  :integer  ; 
end  ; 

longstr  =  string[24]; 

{ - TYPED  CONSTANTS  - ) 

Const 


Our_HotKey 


byte  =  110; 


{  scan  code  for  ALT-F7) 


{******  scan  code  can  be  changed  to  make  *****************} 
{******  another  key  active  as  the  hot  key.  ***************} 

{  This  table  marks  those  INT  21  functions  which  must 
be  passed  without  modification.  They  either  never  return, 
fetch  parameters  from  the  stack,  or  may  be  Interrupted  by  a 
TSR  ) 


Functab 


array! 0 .. $6F ]  of  byte  = 


(1,1, 1,1, 
0,0, 0,0, 

1,1, 1,1, 
0, 0, 0, 0, 

1,1, 1,1, 
0,0, 0,0, 

1,0, 0,0, 
0,0, 0,0, 

o 

1 

o 

0,0, 0,0, 

0,0, 1,0, 

0,0, 0,0, 

0,0, 0,1, 

{26, 2F) 

0,1, 1,1, 

1,1, 0,0, 

0,0, 0,0, 

0,0, 0,0, 

{ 31-35) 

0,0, 0,0, 

0,0, 0,0, 

1,1, 1,1, 

1,1, 0,0, 

{ 48-4D) 

1,1, 1,1, 

0,1, 0,0, 

1, o, 0, 0, 

0,1, 1,1, 
,55, 

{ 50-53, 
58, 5D-5F) 

1,1, 1,1, 

1,1, 1,1, 

1,1, 1,1, 

1,1, 1,1) 

;  {60-62} 

Intr  Flags  : 

byte 

INT13_on  = 

04; 

I NT21_on  = 

08; 

Status  : 

byte 

Hotkey_on  = 

oi; 

Inuse 

02; 

Foxs  = 

$FF; 

DosVersion  : 

byte 

WaitCount  : 

byte 

{Active  interrupts  flags) 

{Disk  interrupt  is  active) 

{DOS  Service  router  is  active) 

{Status  of  current  TSR  activity) 
{Received  the  Hotkey) 

{TSR  is  active) 

{workaround  for  inline  hex  FF) 
{Current  Version  of  DOS) 

{Wait  to  activate  count) 


li 

v 


l 


UserProgram  : integer 
OurDSeg:  integer  =  0 
OurSSeg:  integer  =  0 
DosDSeg:  integer  =  0 
DosSSeg:  integer  =  0 
DosSPtr:  integer  =  0 
DosSsiz:  integer  =  0 
UsrDSeg:  integer  =  0 
UsrSSeg:  integer  =  0 


UsrSPtr:  integer  =  0; 
OurPSP  :  integer  =  0; 


{Offset  to  Users  Program  Code} 
(Turbo  Data  Segment  Value  } 

{Turbo  Stack  Segment  Value  } 
{Dos  Datasegment  value  } 

{Dos  Stack  Segment  Value  } 

{Dos  Stack  pointer  value  > 

{Dos  Stack  size  in  words  } 
{Interrupted  Datasegment  Value} 
{Interrupted  Stack  Segment 
Va lue } 

{Interrupted  Stack  pointer 
Value  } 


{  The  following  constants  *MUST*  remain  in  the  IP:CS 
order.  StaySave  uses  them  as  JMP  targets} 


BIOS_INT8  :  vector  =  (IP:0;CS:0);  {BIOS  Timer  Interrupt 

Vector  } 

BI0S_INT16  :  vector  =  (IP:0;CS:0);  {BIOS  Keyboard 

Interrupt  Vector  } 

BIOS_INT13  :  vector  =  (IP:0;CS:0);  {BIOS  Disk  Interrupt 

Vector  } 

DOS_I NT2 1  :  vector  =  (IP:0;CS:0);  {DOS  Sevlce  Interrupt 

Vector } 

DOS_INT28  :  vector  =  (IP:0;CS:0);  {DOS  idle  Service 

interrupt  Vector} 

DOSStatl  :  vector  =  (IP:0;CS:0);  {Pointer  to  INDOS 

byte } 

DOSStat2  :  vector  =  (IP:0;CS:0);  {Pointer  to  CRITICAL 

byte  } 

Version  :string(4]  =  '4.15';  {  Current  Version  number  } 

{NEEDED  FOR  SETTIME} 

TIMER_HI :  INTEGER  =  0;  {used  to  set  timer} 

TIMER_LO :  INTEGER  =  0;  {used  to  set  timer} 

TIMER_ON  =  4;  {timer  mask  bit} 

FROM_TIMER  =  8;  {timer  mask  bit} 

TIMER_TIME  =  15;  {check  every  15  seconds} 

{*  CHANGE  TIMER_TIME  TO  THE  VALUE  (IN  SECONDS)  TO  THE*****} 

{**  YOU  WANT  THE  PROGRAM  TO  CHECK  FOR  TIME  EXPIRATION  ****} 


BIOS  INT16 


BIOS  INT13 


DOS  INT21 


DOS  INT28 


DOSStatl 


DOSStat2 


Regs 

Hal f Regs 
Keychr 
Bytecount 
SavedPSP 


VARIABLES 


Error 


regtype; 

halfregtype  absolute  regs; 
char  ; 
integer ; 

integer;  {  Program  Segment  Prefix 

pointers  } 

integer;  {  I/O  results  } 
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Good  :  boolean; 

Terminate  :  boolean; 


{  I/O  results  switch  } 
{  Exit  stayRes  Flag  } 


OurDTA  :Array  II.. 2]  Of  integer;  {Local  DTA  pointer} 

SavedDTA  :Array  II.. 2]  of  integer;  {Interrupted  DTA 

pointer } 

{NEEDED  FOR  REMIND  PROGRAM} 

HICLOCK:  INTEGER  ABSOLUTE  $40  :  $6E; 

LOCLOCK:  INTEGER  ABSOLUTE  $40  :  $6C; 

TICS  :  REAL; 

times  : array t 1 .. MaxMsg 1  of  string[51; 
mesg  : array  1 1 .. MaxMsg ]  of  string{127]; 
said  : array 1 1 .. MaxMsg ]  of  boolean; 
line  : str ing [ 127 ] ; 
i,j,k  :integer; 
chin  :char; 
punct  :char; 

{ - } 

{WINDOW  ROUTINE  } 

{ - } 

{$1  b : STAYWNDO .341} 

{ - } 

{  S  T  A  Y  E  X  I  T  } 

{ - } 

{ $1  b:STAYXIT. 420} 

{********************************************************} 

{ - } 

{THE  FOLLOWING  ARE  THE  USER  INCLUDE  ROUTINES  } 

{ - } 

{********************************************************} 
{$1  b:STAYSUBS. 420} 

{ - } 

{  PROCEDURE  SETTIME  NEEDED  TO  INITIALIZE  } 

{ - } 

{ - } 

{  Double  to  Real  number  conversion  } 

{ - } 

function  double_to_real ( I , J  :  Integer ): real ; 

var  temp  :  real; 

begin 

temp  :=  I;  IF  temp  <  0  THEN  temp  :=  temp  +•  65536.0; 

temp  :=  temp  *  65536.0; 

IF  J  <  0  THEN  temp  :=  temp  +  65536.0  +  J  ELSE  temp  := 
temp  +  J; 

double_to_r ea 1  :=  temp; 

END; 


L  2 


number  conversion 


1 - 

{  Real  to  Double 

{ - } 

PROCEDURE  Real_to_double (R  :  real;  VAR  I,  J  :  integer); 

var  It,  Jt  :  real; 

begin 

It  :=  Int(R/65536.0); 

Jt  : =  R  -  It*65536 . 0; 

IF  It  >  Maxlnt  THEN  I  :=  trunc(It  -  65536.0)  ELSE 
I : =  trunc (It); 

IF  Jt  >  Maxlnt  THEN  J  :=  trunc(Jt  -  65536.0)  ELSE 
J : =  trunc ( J t ) ; 

END; 


{  Set  Time  Turn  timer  on  } 

{ - } 


PROCEDURE  Set_Timer ( the_t ime  :  integer); 
begin 

tics  :=  double_to_real (HiClock,  LoClock); 
tics  :=  tics  +  the_time*18 . 206481934; 
real_to_double ( tics,  timer_hi,  timer_lo); 

Status  :=  status  or  Timer_On; 

END; 

PROCEDURE  BeBeep;  {makes  a  nice  beep,  beep  sound} 

VAR  N  :  byte;  {called  before  message  is  spoken} 

begin 

nosound ; 

FOR  N  :=  1  to  3  do 
begin 

sound(800);  delay(50); 
sound(400);  delay(50); 

END; 

nosound ; 

END; 


{CHANGETABLE  } 

{  ********************************************************  } 


procedure  changetable; 

label  10, out; 
begin 

clrscr ; 

10 : for  i : =  1  to  j  do 
begin 

Wr iteln ( ' Entry 


{allows  user  to  change  schedule 
table } 

{label  10  writes  schedule  and 
label  out  gets  out  of  changetable 
{clear  the  screen) 

{j  is  number  of  table  entries) 

#',i:2,'  ',times[i),'  ',mesg[il); 
{write  table  out} 


end ; 
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Wr iteln;  {skip  a  line} 

Writeln( 'Correct?  (Y/N)');  {ask  if  the 

entries  are  correct} 
Writeln;  {skip  a  line} 

Repeat  {read  input  until  valid} 

Read(kbd,chin) ;  {do  a  fast  read} 

Until  chin  in  ( ' y * / ' Y ' , ' n ' , ' N ' ] ;  {the  valid  entries} 
If  chin  in  [ ' n ' , * N ' ]  then  {take  action  if  table  is 

not  correct} 

begin 

wr  iteln (’ Enter  the  number  of  the  entry  to  change 
or  '  ) ; 

wr i teln (' enter  FF:FF  in  an  entry''s  time  field  to 
delete  the  entry  or'); 

if  j  <  MaxMsg  then  {if  number  of  entries  is  less} 
begin  {than  maximum  available) 

writeln( 'enter  ',j+l,'  to  add  a  new  entry  to 
the  table  or  '  ) ; 

end ; 

writeln( ' enter  0  to  reaccomplish  the  entire  table 
or  '  ) ; 

wr  iteln (' enter  99  to  return  with  no  changes.'); 
repeat  {see  what  the  user  wants} 

readln(i);  {get  input} 

if  (i  >  j  +  1)  and  (i  <>  99)  then 
writeln( 'Value  too  high.'); 

{make  sure  user  enters} 
if  1  <  0  then  writeln( 'Value  too  low.'); 

{a  valid  input} 

until  i  in  (0.0+1/991;  {the  valid  entries) 
if  i  =  99  then  {user  doesn't  want  any} 

begin  {changes,  go  back  to 

relist} 

i:=l;  {reinitialize}} 

clrscr;  {clear  the  screen} 

goto  10;  {go  back  to  relist  schedule} 

end ; 

if  i  =  0  then  goto  out;  {user  wants  to  rebuild, 

exit  with  i=0} 

if  i  >  j  then  j:=i;  {wants  to  add  an  entry, 

increase  table  size} 

clrscr;  {clear  the  screen} 

gotoxy ( 15, 10 ) ;  {set  the  cursor} 

Wr iteln( 'Time  ',i,'?  (hh:mm)');  {get  new  entry  or 

change  the  old  one) 

gotoxy ( 1 5 , 1 2 ) ;  {set  the  cursor} 

Readln ( times [ i 1) ;  {get  the  time) 

gotoxy ( 15, 14 ) ;  {ask  the  user  for  the 

message } 

Wr i te In (' Message  ',i,'?  Punctuation  required.'); 
gotoxy ( 15, 16 ) ;  {go  to  end  of  line) 


clrscr ; 

gotoxy ( 15,10) ; 


gotoxy (15, 12); 
Readln ( times [ i 1 ) ; 
gotoxy ( 15,14); 


gotoxy ( 15,16); 
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Read In ( mesg [ i ] ) ; 
k : = length ( mesg [ i ] ) 


{read  the  message) 

{check  to  make  sure 
punctuated ) 

1 ine : =mesg C i 1 ;  {change  to  string) 

if  not  { 1  ine  [  k  ]  in  ['  ))  then 

begin  {tell  the  user  to  add 

punctuation ) 

gotoxy ( 15, 20 )  {set  the  cursor) 

writeln( 'Punctuation  or 

required . ' ) ; 

delay(1500);  {delay  to  let  user  read) 

gotoxy ( 15, 20 ) ;  {reset  the  cursor) 

wr  i  t  e  1  n  (  '  '  ) ; 

gotoxy ( 15+k , 16 ) ;  {reset  the  cursor  at  end) 

readln ( punct ) ;  {get  punctuation) 

mesg [ i ] : =mesg [ i ] +punct ;  {and  add  it  to  the 

message } 

end ; 

said [ i  ]  :  =f alse ;  {haven't  said  this  yet) 

ClrScr;  {clear  the  screen) 

goto  10;  {go  back,  print  the  table, 

and  see  if  its  correct  now) 
out:  {label  to  exit  procedure) 

end ; 

end;  {procedure  changetable) 


{********************************************************} 


{  G  E  T  D  A  T  A 

{■ 

Procedure  Getdata; 


) 


{initializes  table  on 
entry  or  if  user  wants  to 
reinitialize) 


label  go, 10; 


begin 
go : 
i:=l; 
j  :=1; 
clrscr ; 
gotoxy ( 10,3); 


{label  to  start  getting  data) 
{initialize  variables) 


{clear  the  screen) 

{position  the  cursor) 
wr  iteln (' Enter  the  time  (hh:mm)  then  the  message  you  wish 
spoken . ' ) ; 

gotoxy ( 10 , 4 ) ;  {position  the  cursor) 

wr i te In ( ' Time  range  is  00:00-23:59.  Message  is  a  maximum 
of  127 ' ) ; 

gotoxy ( 10, 5 ) ;  {position  the  cursor) 

writeln( 'characters .  ',MaxMsg,'  different  messages  may 
be  entered . ' ) ; 

writeln;  (skip  a  line) 
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c  1:=1  to  MaxMsg  do  (read  In  all  message 

entries } 

begin 

gotoxy ( 15/ 10 ) ;  {time  to  get  user  input} 

Wr i te In ( ' Time  '/i,'?  (hh:mm)  Q  to  quit.'); 

gotoxy ( 15/ 12 ) ;  {set  the  cursor} 

Readln( times [ i 1 ) ;  {get  time  desired  for 

message } 

if  ( t imes [ i 1 = ' q ' )  or  ( times C i ]= 'Q ' )  then 

{see  if  user  wants  to  quit} 


begin 
j  :  =  i  —  1 ; 

clrscr ; 

goto  10; 

end ; 

gotoxy ( 15/ 14 ) ; 


{user  wants  to  quit/  set 
up  number  of} 

{valid  entries  in  j  then 
call  change-} 

{table  procedure  to  list 
out  the  entries} 


gotoxy ( 15/ 14 ) ;  {get  the  desired  message 

now} 

Wr iteln (' Message  ',i/'?  Punctuation  required.') 
gotoxy { 15/ 16 ) ;  {read  the  user's  input} 

Readln ( mesg [ i 1 ) ; 

k : =length(mesg[ i 3 ) ;  {check  to  see  if 


line: =mesg  til; 


{check  to  see  if 
punctuated } 
{change  to  string} 


if  not  ( line  tk  J  in  t  '.'/•?'/'!'} )  then 
begin  {no  punctuation, 


begin  {no  punctuation,  tell  the 

user } 

gotoxy ( 15, 20 ) ;  {position  the  cursor} 

writeln( 'Punctuation  or  ''!'') 

required . ' ) ; 

delay(1500);  {give  user  time  to  read} 

gotoxy ( 15, 20 ) ;  {set  the  cursor} 

wr i te In (  '  ' ) 

gotoxy( 15+k, 16 ) ;  {set  the  cursor  at  the  end} 
readln ( punct ) ;  {get  the  punctuation} 

mesg [ i 3 : =mesg [ i 3 +punct ;  {and  add  it  to  the 

message } 

end ; 

said [ i 3 : =false;  {haven't  said  this  yet} 

ClrScr;  {clear  the  screen} 

j:=i;  {entered  max  entries,  so  j 

can  equal  i  } 

end ; 

changetable;  {procedure  changetable  lists  the 
entries  and  let  user  change} 
if  i=0  then  goto  go;  {if  i=0  on  return  from 

changetable,  user  wants  to 
reinitialize} 

d;  {procedure  getdata} 


begin 

if  ( t irnestr =t lmes [ 1 1 )  then  (if  time  matches 

time} 

begin 

i f  not  said [ i  ]  then 


{did  we  tell  the 
user  a lr eady? } 
{no,  tell  the 
user  } 

{an  attention 
getter } 

speak (mesg[ i ], 65, 180 ) ;  {say  the 

message } 


begin 

bebeep; 


said[ i  ]  :=true; 
end ; 


end ; 

end ; 

set_timer ( timer _ti me ) ; 


{set  a  flag  that 
we  said  the  msg} 
{if  not  said) 

{if  (timestr.. 
{for  i : =1  to  j 
{ issue  another 
time  call } 


} 


end 
e  lse 


{user  must  have 
entered  ALT-F7} 


begin 

MkWin ( 1, 1, 80,25, br ight+cyan, black, 3 ) ; 

{make  a  window} 

gotoxy ( 10 , 12 ) ;  {set  the  cursor} 

writeln( 'Enter  R  to  review/revise  schedule  or  T 
to  terminate . ' ) ; 

repeat  {get  user  input} 

read ( kbd, chin ) ;  {do  fast  read} 

until  chin  in  [ ' r ' , ' R ' , ' t ' , ' T ' ] ;  {valid  inputs} 
if  chin  in  ( ' t  * , 'T' ] 
then  terminate : =true 
else 


begin 

i  :  —  1 ; 

changetable ; 


{user  wants  to  cancel} 
{user  wants  to 
review/revise  table} 


{  initial ize  i } 

{user  wants  the 
entries } 

if  i=0  then  getdata;  {if  i=0  is  returned 

then  user  wants} 

end;  {to  reinitialize  the  table} 

RmWin;  {remove  the  window} 

end ;  {if  chin  in  ( 't'  .  .  . 

end;  {end  else} 

end;  {procedure  check} 


{ 


{  THE  ABOVE  ARE  THE  USER  INCLUDE  ROUTINES 
{ - 
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INTERRUPT 


} 

} 

} 


PROCESS 


{  PURPOSE: 

The  following  procedures  displace 
interrupts . 


standard 


Do  not  put  Variables  or  Constants  in  this  Procedure. 
It  will  cause  registers  to  be  clobbered  during  the 
Interrupt  routine  when  Turbo  attempts  to  allocate  storage 
for  local  variables  or  parameters.} 

PROCEDURE  STAY_INT16 ;  {Keyboard  Interrupt  16  Service 

Routine } 

{If  anything  but  "Our_HotKey"  is  pressed,  the  key  is 

passed  to  the  standard  keyboard  service  routine.  B_U_T, 
when  Our  Hotkey  is  recognized,  a  hotkey  bit  is  set.} 
begin 

{$1  b : Stayil6 . 410 } 

End;  {STAY_INT16} 


PROCEDURE  STAY_INT13; 
begin 

{$1  b : Stayil3 . 410 } 
End;  {STAY_INT13} 

PROCEDURE  STAY_INT21; 
begin 

{$1  b: Stayi21 . 410 } 
End;  {STAY_INT21} 


{BIOS  Disk  interrupt  Routine} 
{Sets  a  flag  while  disk  is  active} 


{DOS  interrupt  21  Service  Routine} 
{Sets  a  flag  while  INT  21  is  active} 


PROCEDURE  Stay_INT8;  {Timer  Interrupt  8  Service  Routine} 

{Activates  Stayres  during  pgm  execution} 
begin  {when  safe  to  do  so.} 

{$1  b:Clkl8 . 410 } 

{ $ I  b:Stayi8 . 420} 

End; { Stay_Int8 } 

PROCEDURE  Stay_INT28;  {Idle  Interrupt  28  Service  Routine} 
begin  {Invokes  Stayres  from  the  DOS  prompt} 

{$1  b : Stayi 2 8 . 410 }  {and  allows  background  activity  to  } 

End; {Stay_Int28}  {continue} 


PROCEDURE  StaySave;  {Prolog  to  Resident  Turbo  Code} 
begin 

{$1  b : StaySave . 420 } 

GetDTAC SavedDTAt 1 ] , SavedDTAt 2 ] ) ;  {Save  callers  DTA 

address } 


-  131  - 


GetPSP ( SavedPSP ) ;  (Save  callers  PSP 

Segment } 

SetPSP ( OurPSP ) ;  {Set  our  PSP  Segment} 

SetDTA( Our DTA { 1 ] , Our DTA[ 2 ] ) ;  {Set  our  DTA  address} 

NewCtlct2]  :=  CSeg; 

NewCtlc [ 1 ]  :=  Ofs(IRET); 

GetCtlC( SavedCtlc ) ;  SetCtlC(NewCtlc ); {Get/Save  the  users 

Ctrl-C  vector} 

INT240n;  {Trap  Dos  Critical 

Errors } 


{ - } 

{  INVOKE  USER  PROCEDURE  HERE  } 

{ - } 


begin 

KeyChr  :=  #0; 
check ; 
end ; 


{  Clear  any  residual  } 
{go  execute  the  program} 


{ - } 

{  END  USER  PROCEDURE  HERE  } 

{ - } 


SetPSP ( SavedPSP ) ;  {  Restore  Callers  PSP 

Segment } 

SetDTA( SavedDTAt 1 ] , SavedDTAt 2 ) ) ; {  Restore  the  users  DTA} 

SetCtlC(SavedCtlC) ;  {  Restore  the  users  Ctrl-C 

Vector } 

INT240ff;  {  Remove  Our  Critical 

Error  routine} 

If  (Terminate  =  true)  then  Stay_Xit;{  If  exit  key, 

restore  Int  Vectors  } 


BEGINNING  OF  THE  STAYRSTR  ROUTINE 


{$1  b : Stayrstr . 420 }  {  RETURN  TO  CALLER  } 

t - 

{  END  OF  THE  STAYRSTR  ROUTINE 
{ - 


nd  ;{StaySave} 


The  main  program  installs  the  new  interrupt  routine 
and  makes  it  permanently  resident  as  the  keyboard 
interrupt.  The  old  keyboard  interrupt  Vector  is 
stored  in  Variables  ,  so  they  can  be  used  in  Far 
Calls. 


{  The  following  dos  calls  are  used: 


{  Function  25 
{ 

{ 

{  Function  35 
{ 

{ 

{  Function  31 
{ 

{ 

{ 

{  Function  49 
{ 

{ - 


Install  interrupt  address 

input  al  =  int  number, 

ds:dx  =  address  to  install 

get  interrupt  address 

input  al  =  int  number 

output  es:bx  =  address  in  interrupt 

terminate  and  stay  resident 

input  dx  =  size  of  resident  program 

obtained  from  the  memory 

allocation  block  at  [Cs:0  -  $10  +  3] 

Free  Allocated  Memory 

input  Es  =  Block  Segment  to  free 


begin 


{ **main** } 


OurDseg:=  Dseg; 


OurSseg:=  Sseg; 


GetPSP (OurPSP ) ; 


{  Save  the  Data  Segment  Address  for 
Interrupts  } 

{  Save  our  Stack  Segment  for 
Interrupts  } 

{  Local  PSP  Segment  } 


GetDTA(OurDTA[ 1 ] ,OurDTA[ 2 ] ) ;  {  Record  our  DTA  address  } 


UserProgram: =Of s ( Staysave ) ;  {Set  target  of  call 

instruction } 

Regs. Ax  :=  $3000  ;  {Obtain  the  DOS  Version 

number } 

Intr ( Dos  I  21, Regs ) ; 

DosVersion  :=  Halfregs.Al;  {  0=1+,  2=2.0+,  3=3.0+  } 


{Obtain  the  DOS  Indos  status  location} 
Regs. Ax  :=  $3400; 

Intr ( DosI 21, Regs ) ; 


DosStatl . IP 
DosStatl . CS 
DosStat2 .CS 
DosSSeg 


=  Regs.BX; 
=  Regs . ES ; 
=  Regs.ES; 
=  Regs.ES; 
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Bytecount  :=  0;  {  Search  for  CMP  [critical  flag  1,00 

instruction  } 

While  (Bytecount  <  $2000) 

{  then  Mov  SP/stackaddr  instruction  } 
and  (Memw[ DosStat2 .CS :Bytecount ]  <>  $3E80) 
do  Bytecount  :=  Succ ( Bytecount ) ; 

If  Bytecount  =  $2000  then  begin  {  Couldn't  find 

critical  flag  addr  } 

Wr iteln ( ' StayRes  incompat ibl ity  with  Operating 
System' ) ; 

Writeln( ' StayRes  will  not  install 
correctly. .Halting' ); 

Halt;  end; 

{  Search  for  the  DOS  Critical  Status  Byte  address.  J 
(  Bytecount  contains  offset  from  DosStatl.CS  of  the  1 
{  CMP  [critical  flag], 00  } 

{  JNZ  ....  } 

{  Mov  SP,indos  stack  address  } 

If  Mem[ DosStat2 . CS : Bytecount+7 ]  =  $BC  {MOV  SP,xxxx} 
then  begin 

DosStat2.IP  :  =  Memw[ DosStat 2 . CS : Bytecount+2 ] ; 
DosSptr  :=  Memw[ DosStat2 . CS : bytecount +8 1 ; 

{INDOS  Stack  address} 

END 

else  begin 

wrlteln( 'Cannot  Find  Dos  Critical  byte ...  Please 
Reboot .  '  ) ; 

Halt; 

end; 


Inline ( $FA) ; 


{Disable  interrupts} 


{  Setup  Our  Interrupt  Service  Routines  } 

Setup_Interrupt  ( BIOS  1 16 ,  BIOS_Intl6,  Of  s  (  Stay_INT16  )  ) ; 
{keyboard } 

Setup_Interrupt ( BIOSI 8 ,  BIOS_Int8,  Of s ( Stay_INT8 ) ) ; 
{timer} 

Setup_Interrupt(BIOSI13,  BIOS_Intl3,  Ofs ( Stay_INT13 )  ) ; 
{disk } 

Setup_Interrupt ( DOSI 21,  DOS_Int21,  Of s ( Stay_INT21 ) ) ; 
{DOSf unction } 

Setup_Interrupt ( DOSI 28,  DOS_Int28,  Of s ( Stay_INT28 ) ) ; 
{DOS  idle} 

Inline($FB);  {Re-enable  interrupts} 

{********************************************************} 


t - } 

{  INITIALIZE  YOUR  PROGRAM  HERE  } 

{ - } 


{  Initialize  Program  Here  since  we  will  not  get  control 
again .  } 


Terminate  :=  false;  {Clear  the  program  exit  flags  } 

Mk Win ( 1 , 1 , 80 , 2 5 , br ight +cyan, black , 3 ) ;  {make  a  window} 
clrscr ; 

getdata;  {set  up  initial  times  and  msgs} 

RmWin; 
wr  iteln; 

writeln( '***********************************************• ); 
writeln('***  Remind  System  is  now  resident.  ***'); 

writeln('***  Enter  ALT-F7  to  review/revise  schedule  ***'); 

writeln('***  or  terminate  program.  ***'); 

wr  iteln ( '***********************************************' ); 
set_timer ( timer_t ime ) ;  {start  the  timer} 

{ - } 

{  END  OF  INITALI ZE  PROGRAM  CODE  } 

{ - } 

{  Now  terminate  and  stay  resident.  The  following  Call 
utilizes  the  DOS  Terminate  &  Stay  Resident  function.  We 
get  the  amount  of  memory  by  fetching  the  memory  allocation 
paragraphs  from  the  Memory  Control  Block.  This  was  set  by 
Turbo  initialization  during  Int  21/function  4A  (shrink 

block),  calculated  from  the  minimum  and  mAximum  options 

menu.  The  MCB  sits  one  paragraph  above  the  PSP.} 

{  Pass  return  code  of  zero  } 

Regs. Ax  :=  $3100  ;  {  Terminate  and  Stay  Resident  } 

Regs.Dx  :=  MemW  [ Cseg-1 : 000 3 ] +1  ;  {  Prog_Size  from 

Allocation  Blk } 

Intr  ( DosI 21, Regs ) ; 


{  END  OF  RESIDENCY  CODE  } 

end  . 


Files  that  are  included  in  the  above  program  are  listed 
below.  The  procedure  SPEAK. INC  can  be  found  in  the  IBM 
Text -to-Speech  Interface  for  the  IBM  Voice  Communications 
Adapter ,  Talbot,  Summer  1987. 
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{********************************************************} 

{  STAYWNDO.  341  } 

{  "...but  I  dont  do  floors  !"  > 

{********************************************************} 

{  Kloned  and  Kludged  by  Lane  Ferris  } 

{  —  The  Hunters  Helper  --  } 

{  Original  Copyright  1984  by  Michael  A.  Covington  > 

{  Modifications  by  Lynn  Canning  9/25/85  } 

{  1)  Foreground  and  Background  colors  added.  } 

{  Monochrome  monitors  are  automatically  set  } 

{  to  white  on  black.  } 

{  2)  Multiple  borders  added.  } 

{  3)  TimeDelay  procedure  added.  > 

{  Requirements:  IBM  PC  or  close  compatible.  } 

( - f 

{  To  make  a  window  on  the  screen,  call  the  procedure} 
{MkWin(xl,yl,x2,y2/FG, BG, BD ) ; 

{  The  x  and  y  coordinates  define  the  window  placement  and 
are  the  same  as  the  Turbo  Pascal  Window  coordinates.  The 
border  parameters  (BD)  are  0  =  No  border  1  =  Single  line 
border  2  =  Double  line  border  3  =  Double  Top/Bottom 

Single  sides  } 

The  foreground  (FG)  and  background  (BG)  parameters  are  the 
same  values  as  the  corresponding  Turbo  Pascal  values.} 


{  The  maximum  number  of  windows  open  at  one  time  is  set  at 
five  see  MaxWin=5).  This  may  be  set  to  greater  values  if 
necessary. } 

{  After  the  window  is  made,  you  must  write  the  text  desired 
from  the  calling  program.  Note  that  the  usable  text  area 
is  actually  1  position  smaller  than  the  window  coordinates 
to  allow  for  the  border.  Hence,  a  window  defined  as 
1,1,80,25  would  actually  be  2,2,79,24  after  the  border  is 
created.  When  writing  to  the  window  in  your  calling 
program,  the  textcolor  and  backgr oundcolor  may  be  changed 
as  desired  by  using  the  standard  Turbo  Pascal 
commands.  } 

{  To  return  to  the  previous  screen  or  window,  call  the 
procedure  RmWin;  } 

{  The  TimeDelay  procedure  is  invoked  from  your  calling 
program.  It  is  similar  to  the  Turbo  Pascal  DELAY  except 
DELAY  is  based  on  clock  speed  whereas  TimeDelay  is  based  on 
the  actual  clock.  This  means  that  the  delay  will  be  the 
same  duration  on  all  systems  no  matter  what  the  clock 
speed.  The  procedure  could  be  used  for  an  error  condition 
as  follows:  } 


{  MkWin  -  make  an  error  message  window 

{  Writeln  -  write  error  message  to  window 

{  TimeDelay(5)  -  leave  window  on  screen  5  seconds 

{  RmWin  -  remove  error  window 

{  continue  processing 

{ - } 


Const 


InitDone  rboolean  =  false  ;  {  Initialization  switch} 


On  =  True  ; 

Off  =  False  ; 

VideoEnable  =  $08; 
Bright  =  8; 

Mono  =  7; 


{  Video  Signal  Enable  Bit  } 
{  Bright  Text  bit} 
{Monochrome  Mode} 


Type 


Imagetype  =  array  [1.  .4000]  of  char;  {  Screen  Image 

in  the  heap} 

WinDimtype  =  record 

xl/yl/x2/y2:  integer 
end ; 


Screens 


=  record  {  Save  Screen  Information} 

Image:  Imagetype;  {  Saved  screen  Image  } 
Dim:  WinDimtype;  {  Saved  Window 

Dimensions  } 

x,y:  integer;!  Saved  cursor  position  } 

end ; 


Win:  {  Global  variable  package  } 

record 

Dxm:  WinDimtype;  {  Current  Window  Dimensions  } 

Depth:  integer; 

{  MaxWin  should  be  included  in  your  program  } 

{  and  it  should  be  the  number  of  windows 
saved  at  one  time  } 

{  It  should  be  in  the  const  section  of  your  program  } 
Stack:  array [ 1 .. MaxWin ]  of  'Screens; 


{  Current  Window  Dimensions  } 


end ; 


Crtmode  :byte  absolute  $0040:$0049; 

{Crt  Mode , Mono , Co  1  or , B&W .  .  } 
Crtwidth  :byte  absolute  $0040:$004A; 

{Crt  Mode  Width,  40:80  ..  } 

Monobuffer  : Imagetype  absolute  $B000:$00Q0; 

{Monochrome  Adapter  Memory} 
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:  byte 


Crtwidth 


:  byte 


'  I  -lyiXy  .y-y.V 


-■NJsv.* 


Colorbuf fer  : I mage type 
CrtAdapter  : integer 
VideoMode  :byte 
TurboCrtMode :  byte 


Video_Buf f er : integer ; 
Delta , 

x,  y  : integer  ; 


absolute  $B800:$0000; 

{Color  Adapter  Memory  } 

absolute  $0040:$0063; 

{  Current  Display  Adapter  } 
absolute  $0040:$0065; 

{  Video  Port  Mode  byte  } 

absolute  Dseg:6; 

{Turbo's  Crt  Mode  byte  } 

{  Record  the  current  Video} 


Delay  for  X  seconds 


procedure  TimeDelay  (hold  :  integer); 
type 

RegRec  =  {  The  data  to  pass  to  DOS  } 

record 

AX,  BX,  CX,  DX,  BP,  SI,  DI,  DS,  ES,  Flags  :  Integer; 
end ; 

var 

regs : regrec ; 

ah,  al,  ch,  cl,  dh:byte; 

sec  :string[2]; 

result,  seen,  error,  secn2,  diff  :integer; 


begin 

ah  :=  $2c; 
with  regs  do 

ax  :=  ah  shl  8  +  al; 
intr ( $21, regs ) ; 


{Get  Time-Of-Day  from  DOS} 
{Will  give  back  Ch:hours  } 
{ Cl : minutes, Dh : seconds  } 
{Dl:hundreds  } 


with  regs  do 

str(dx  shr  8:2,  sec); 


i  f  ( sec  Cl]  =  '  ' )  then 

sec [11:=  ' 0 ' ; 
val(sec,  seen,  error); 
repeat  {  sta 

ah  :=  $2c; 
with  regs  do 

ax  :=  ah  shl  8  +  al; 
intr ( $21, regs ) ; 


{Get  seconds  } 

{with  leading  null} 


;  (Conver  seconds  to  integer} 

{  stay  in  this  loop  until  the  time) 
{  has  expired  } 


{Get  current  time-of-day} 


with  regs  do 

str(dx  shr  8:2,  sec); 
if  (sec  Cl]  =  '  ')  then 

sec { 1 ] : =  'O'; 


{Normalize  to  Char} 


valfsec,  secn2,  error);  {Convert  seconds  to  integer) 
diff  :=  secn2  -  seen;  {Number  of  elapsed  seconds) 

if  diff  <  0  then  {  we  just  went  over  the  minute  ) 

diff  :=  diff  +  60;  {  so  add  60  seconds  ) 

until  diff  >  hold;  {  has  our  time  expired  yet  } 

d;  {  procedure  TimeDelay  ) 


Get  Absolute  postion  of  Cursor  into  parameters  x,y  } 


Procedure  Get_Abs_Cursor  (var  x,y  : integer); 

Var 

Active_Page  :  byte  absolute  $0040:$0062; 

{  Current  Video  Page  Index) 

Crt_Pages  :  array[0..7]  of  integer  absolute  $0040:$0050  ; 


Begin 


=  Cr t_Pages [ act i ve_page ] ;  {Get  Cursor  Position  } 

=  Hi(X)+l;  {  Y  get  Row) 

=  Lo(X)+l;  {  X  gets  Col  position) 


Turn  the  Video  On/Off  to  avoid  Read/Write  snow 


Procedure  Video  ( Switch : boolean ) ; 

Begin 

If  (Switch  =  Off)  then 

Port (CrtAdapter+4 )  :=  (VideoMode  -  VideoEnable ) 
else  Por t [ Crt Adapter +4 ]  :=  (VideoMode  or 

VideoEnable ) ; 


{  InitWin  Saves  the  Current  (whole)  Screen 


Procedure  InitWin; 

{  Records  Initial  Window  Dimensions  ) 

Beg  l  n 

with  Win . Dim  do 

begin  xl:=l;  yl:=l;  x2 : =cr twidth;  y2:-25  end; 

Win . Depth : =0 ; 

InitDone  :=  True  ;  {  Show  initialization  Done  } 


{  BoxWin  Draws  a  Box  around  the  current  Window 


procedure  BoxWi n ( xl , yl , x2 , y2 ,  BD,  FG,  BG  :integer); 


{Draws  a  box,  fills  it  with  blanks,  and  makes  it  the 
current  Window.  Dimensions  given  are  for  the  box;  actual 
Window  is  one  unit  smaller  in  each  direction.  ) 


var 


1/ 

TB/SID/TLC/ TRC, BLC, BRC 


:  integer ; 


I 


J 


l 


A 


r: 

s. 

sm 

% 

;# 


begin 


if  Crtmode  =  Mono  then 

begin 

FG  :  =  ' 

BG  :=  0; 

end ; 

Window ( xl, yl, x2 

,y2); 

{Make  the  Window} 

TextColor ( FG )  ; 

{Set  the  colors} 

Text Back ground ( BG ) ; 

Case  BD  of 

{Make  Border  characters} 

0:; 

{No  border  option} 

1 : begin 

{Single  line  border  option} 

TB 

=  196; 

{Top  Border} 

SID 

=  179; 

{Side  Border} 

TLC 

=  218; 

{Top  Left  Corner} 

TRC 

=  191; 

{Top  Right  Corner} 

BLC 

=  192; 

{Bottom  Left  Corner} 

BRC 

=  217; 

{Bottom  Right  Corner} 

end ; 

2 : begin 

{Double  line  border  option} 

TB 

=  205; 

SID 

=  186; 

TLC 

=  201; 

TRC  :  = 

187; 

BLC 

=  200; 

BRC  :  = 

188; 

end; 

3 :begin 

{Double 

Top/Bottom  with  single  sides} 

TB 

=  205; 

{"deary  and  dont  spare  the  lace"} 

SID 

=  179; 

TLC 

=  213; 

TRC  :  = 

184; 

BLC 

=  212; 

BRC  :  = 

190; 

end ; 

End ; { Case } 

IF  BD  >  0  then 

begin 

{  User  want  a  border?  } 

{  Top  } 

gotoxy(l,l);  {  Window  Origin  } 

Wrlte(  chr(TLC)  );  {  Top  Left  Corner  } 

For  I : =  2  to  x2-xl  do  {  Top  Bar  } 

Wr ite (  chr (TB ) ) ; 

Write{  chr (TRC)  );  {  Top  Right  Corner  } 

{  Sides  } 

for  I:=2  to  y2-yl  do  begin 

gotoxy(l,I);  {  Left  Side  Bar  } 

wr i t  e  (  chr (SID)  ); 

gotoxy ( x2-xl+l, I )  ;  {  Right  Side  Bar  } 

wr  i  te (  chr (SID)  ) ; 

end ; 
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{  Bottom  } 

gotoxy(l,y2-yl+l)  ; 
write(  chr(BLC)  ); 
for  I : =  2  to  x2-xl  do 
write{  chr(TB)  ); 


{  Bottom  Left  Corner  } 


{  Bottom  Bar 


{  Make  it  the  current  Window  } 
Window(xl+l,yl+l,x2-l,y2-l); 

write(  chr(3RC)  );  {  Bottom  Right  Corner  } 

end;  { I f  BD  >  0 } ; 


gotoxy(l,l)  ; 
TextColor(  FG)  ; 
TextBackground  (BG); 
ClrScr ; 
end ; 


{  Take  Low  nibble  0..15  } 

{  Take  High  nibble  0..9  1 


{  MkWin  Make  a  Window 

{ - 

procedure  Mk Win ( xl , yl , x2 , y2 ,  FG,  BG,  BD  :integer); 
{  Create  a  removable  Window  } 


begin 


If  (InitDone  =  false)  then  {  Initialize  if  not  done  yet  } 
InitWin ; 

TurboCrtMode  :=  CrtMode;  (Set  Textmode  w/o  ClrScr} 

If  CrtMode  =  7  then  Video_Buffer  :=  $B000  {Set  Ptr  to 

Monobuffer  } 

else  Video_Buffer  :=  $B800;  {or  Color  Buffer  } 

with  Win  do  Depth : =Depth+l;  {  Increment  Stack  pointer  } 
if  Win . Depth>maxWln  then 
begin 

wr  iteln(  ■'G,  '  Windows  nested  too  deep  '); 
halt 
end; 

( - } 

{  Save  contents  of  screen  } 

{ - ) 

With  Win  do 
Begin 

New( Stack [ Depth ]) ;  {  Allocate  Current  Screen  to  Heap  } 

Video (  Off); 

If  CrtMode  =  7  then 

Stack ( Depth ]  ~  . Image  :=  monobuffer  {  set  pointer  to  it  } 
else 

Stack [ Depth ]~. I  mage  :=  colorbuffer  ; 

Video {  On ) ; 

End  ; 
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{  Save  Screen  Dlmention3} 


With  Win  do 


I  f 


If 


Begin 

Stack [ Depth ] ~ . Dim  := 
StacktWin.DepthK.x 
Stack[Win.Depth]~.y 
End  ; 

( X2  >  80)  then 


Dim; 

:=  wherex; {  Save  Cursor  Position} 
:=  wherey; 

{  Validate  the  Window  Placement} 

{  If  off  right  of  screen  } 


begin 

Delta  :=  ( X 2  -  80);  {  Overflow  off  right  margin} 

If  XI  >  Delta  then 

XI  :=  XI  -  Delta  ;  {  Hove  Left  window  edge  } 

X2  :=  X2  -  Delta  ;  {Move  Right  edge  on  80  } 

end ; 


(Y2  >  25)  then  {  If  off  bottom  screen  } 


begin 

Delta  :=  Y2  -  25;  {  Overflow  off  right  margin  } 

If  Y1  >  Delta  then 

Y1  :=  Y1  -  Delta  ;  {  Move  Top  edge  up} 

Y2  :=  Y2  -  Delta  ;  {  Move  Bottom  24  } 

end; 

{  Create  the  New  Window  } 

Box Win ( xl , yl ,x2,y2,BD,FG, BG ) ; 

If  BD  >0  then  begin  {Shrink  window  within  borders} 

Win. Dim. xl  :=  xl+1; 

Win. Dim. yl  :=  yl+1;  {  Allow  for  margins  } 

Win. Dim. x2  :=  x2-l; 

Win. Dim. y2  :=  y2-l; 
end ; 

end ; 

{ - 

{  Remove  Window 

{ - 

{  Remove  the  most  recently  created  removable  Window  } 

{  Restore  screen  contents.  Window  Dimensions,  and  } 

{  position  of  cursor.  } 

Procedure  RmWin; 

Var 

Tempbyte  :  byte; 


Beg  i  n 

Video ( Of  f  ) ; 

With  Win  do 

Begin  {  Restore  next  Screen 

If  crtmode  =  7  then 

monobuffer  :=  Stack [ Depth ] ~ . Image 

else 

colorbuffer  :=  Stack [ Depth ) ~ . Image ; 

D ispose ( Stack [ Depth  ]) ;  {  Remove  Screen  from  Heap 

end ; 


Video ( On  ) ; 


With  Win  do  {  Re-instate  the  Sub-Window  } 

Begin  {  Position  the  old  cursor  } 

Dim  :=  Stack [ Depth ] ~ . Dim; 
Window(Dim.xl/Dim.yl/Dim.x2,Dim.y2); 
gotoxy(Stack[Depth]'‘.x,Stack[Depth]'‘.y); 
end ; 


Get_Abs_Cursor ( x, y )  ;  {New  Cursor  Position  } 

Tempbyte  :=  {  Get  old  Cursor  attributes} 

Mem[  Video _Buffer:((x-l  +  (y-1)  *  80  )  *  2)+l  ]; 


TextColor(  Tempbyte  And  $0F  );{  Take  Low  nibble  0 . - 1 5  > 


TextBackgr ound  (  Tempbyte  Div  16);  {  Take  High  nibble 

0  .  .  9  } 

Depth  :=  Depth  -  1 
end  ; 

end ; 

{ - } 

{ ********************************************************  } 

{  STAYXIT  .  420  } 

{********************************************************} 

{ - } 

{Stay_Xit  Check  Terminate  Keys  } 

{  } 

{  Clean  up  the  Program  ,Free  the  Environment  block,  the 
program  segment  memory  and  return  to  Dos.  Programs  using 
this  routine  ,must  be  the  last  program  in  memory,  else  ,a 

hole  will  be  left  causing  Dos  to  take  off  for 
Peoria.  } 

{ - } 

Procedure  Stay_Xit; 

{ 


This  code  reinstates  those  interrupts  that  will  not 
be  restored  by  DOS  Interrupts  22,23,24  (hex)  are  restored 
from  the  Current  PSP  during  termination.} 

VAR 

PSPvector22:  vector  absolute  Cseg:$0A; 

PSPvector23:  vector  absolute  Cseg:$0E; 

PSPvector24:  vector  absolute  Cseg:$12; 


DOSvector  2  2 : 
DOSvector  2  3  : 
DOSvector  2  4  : 


vector  absolute  0:$88; 
vector  absolute  0:$8C; 
vector  absolute  0:$90; 


Begin  {  Block  } 
wr i te In ; 

Writeln  (’Remind  program  Terminated’)  ; 
WRITELN; 

WRITELN  (’Enter  <CR>  to  continue’); 


I  nl ine ( $FA) ; 


{Disable  interrupts} 


{  Restore  Disk  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  BIOSI13; 

Regs.Ds  :=  BIOS_INT13 .CS; 

Regs.Dx  :=  BIOS_INT13 . IP; 

I ntr  ( $21, Regs ) ; 

{  Restore  Keyboard  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  BIOSI16; 

Regs.Ds  :=  BI OS_INTl 6 . CS ; 

Regs.Dx  :=  BIOS_INT16 . IP; 

Intr  ( $21, Regs  ) ; 

{  Restore  Timer  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  BIOSI8; 

Regs.Ds  :=  BIOS_INT8 . CS; 

Regs.Dx  :=  BIOS_INT8 . IP; 

Intr  ( $21, Regs  ) ; 

{  Restore  DOS  21  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  DOSI21; 

Regs.Ds  :=  DOS_INT21 . CS ; 

Regs.Dx  :=  DOS_INT21 . IP; 

Intr  ($21, Regs); 

{  Restore  DOS  28  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  DOSI28; 

Regs.Ds  :=  DOS_INT28 . CS; 

Regs.Dx  :=  DOS_INT28 . IP; 

Intr  ($21, Regs); 

{  Move  Interrupt  Vectors  22,23,24  to  our  PSP  from  where 
DOS  will  restore  } 


PSPvector22  :=  DOSvector22;  {  Terminate  vector  } 
PSPvector23  :=  DOSvector23;  {  Cntrl-C  vector  } 
PSPvector24  :=  DOSvector24;  {  Critical  vector  } 

Inline($FB);  {Re-enable  interrupts} 


Regs. Ax  :=  $49  shl  8  +  0  ; 
Regs.Es  :=  MemW{ Cseg : $ 2C ] ; 
MsDos (  Regs  )  ; 


{  Free  Allocated  Block 
f  unct ion) 

{  Free  environment 
block  } 
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Regs. Ax  :=  $49  shl  8+0;  {  Free  Allocated  Block 

function} 

Regs.Es  :=  Cseg  ;  {  Free  Program} 

MsDos(  Regs  )  ; 

End  {  StayXit  }; 

{*********************************************************} 
t  STAYSUBS  .  420  } 

{******** ) ************************************************} 

{ - } 

{  SETUP  INTERRUPT  } 

t - i 

'  Msg  *  *48  Dated  07-07-86  16:54:36 

From:  NEIL  RUBENKING 
To:  LANE  FERRIS 
Re:  STAY,  WON'T  YOU? 

Lane , 

Here's  what  I  did: 

} 

PROCEDURE  Setup_Interrupt ( IntNo  :byte;  VAR  IntVec 
:vector;  offset  :integer); 

BEGIN 

Regs. Ax  :=  $3500  +  IntNo; 

Intr (DosI21,Regs ) ;  {get  the  address  of  interrupt  } 

IntVec. IP  :=  Regs.BX;  {  Location  of  Interrupt  Ip  } 
IntVec. CS  :=  Regs.Es;  {  Location  of  Interrupt  Cs  } 

Regs. Ax  :=  $2500  +  IntNo;  {  set  the  interrupt  to  point 

to  our  procedure} 

Regs.Ds  :=  Cseg; 

Regs.Dx  :=  Offset; 

Intr  (DosI21,Regs) ; 

END; 

( ********c  0  M  M  E  N  T  ************* 

{in  the  main  part  of  the  program} 

Setup_Interrupt ( BI0SI16,  BIOS_Intl6,  Of s ( Stay_INT16 ) ) ; 
{keyboard } 

Setup_Interrupt ( BIOSI10,  BIOS_IntlO,  Of s ( Stay_INT10 ) ) ; 

{video } 

Setup_Interrupt ( BIOSI 8,  BIOS_Int8,  Of s ( Stay_INT8 ) ) ; 

{timer} 

Setup_Interrupt(BIOSI13,  BIOS_Intl3,  Of s ( Stay_INT13 ) ) ; 

{disk } 

Setup_Interrupt ( DOSI 21,  DOS_Int21,  Of s ( Stay_INT21 ) ) ; 

{ DOSf unct ion } 

Setup_I nter r upt ( DOS  I  2 8 ,  DOS_Int28,  Of s ( Stay_INT28 ) ) ; 

{DOS  idle l 

****** c  0  M  M  E  N  T  *******************) 
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SET  D  T  A 


Procedure  SetDTA(var  segment,  offset  :  integer  ); 

BEGIN 

regs.ax  :=  $1A00;{  Function  used  to  get  current  DTA 

address } 

regs.Ds  :=  segment;  {  Segment  of  DTA  returned  by 

DOS  } 

regs.Dx  :=  offset;  {  Offset  of  DTA  returned  } 

MSDos(  regs  );  {  Execute  MSDos  function  request  } 

END; 


{  G  E  T  D  T  A  } 

{ - } 

Procedure  GetDTA(var  segment,  offset  :  integer  ); 

BEGIN 

regs.ax  :=  $2FOO;  {  Function  used  to  get  current 

DTA  address  l 

MSDos (  regs  );  {  Execute  MSDos  function 

request  } 

segment  :=  regs.ES;  {  Segment  of  DTA  returned  by 

DOS  } 

offset  :=  regs.Bx;  {  Offset  of  DTA  returned  } 


offset  :=  regs.Bx; 
END; 


{  S  E  T  P  S  P  t 

{ - } 

Procedure  SetPSP(var  segment  :  Integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its 

standard  stack  when  the  PSP  get/set  functions  are  issued  at 
the  DOS  prompt.  The  following  checks  are  made,  forcing  DOS 
to  use  the  "critical”  stack  when  the  TSR  enters  at  the 
INDOS  level.} 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  set  the  Dos  Critical  Flag} 

If  Mem[ DosStatl . CS : DosStatl . IP ]  <>  0  then 
Mem[ DosStat2 . CS : DosStat2 . IP ]  :=  $FF; 
regs.ax  :=  $5000;  {  Function  to  set  current  PSP  address  } 

regs.bx  :=  segment;  {  Segment  of  PSP  to  be  used  by  DOS  } 
MSDos(  regs  );  {  Execute  MSDos  function  request  } 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  clear  the  Dos  Critical  Flag  } 
If  Meml DosStatl . CS : DosStatl . IP ]  <>  0  then 
Mem[ DosStat2 .CS : DosStat2 . IP ]  :=  $00; 

END; 


PSP 
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G  E  T 


PSP 


Procedure  GetPSP(var  segment  :  integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its 

standard  stack  when  the  PSP  get/set  functions  are  issued  at 
the  DOS  prompt.  The  following  checks  are  made,  forcing  DOS 
to  use  the  "critical"  stack  when  the  TSR  enters  at  the 
INDOS  level.  } 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {  then  set  the  Dos  Critical  Flag} 
If  Mem[ DosStatl . CS : DosStatl .  IP  }  <>  0  then 
Mem[DosStat2 .CS :DosStat2 . IP  1  :=  $FF; 

regs.ax  :=  $5100 ;{ Funct ion  to  get  current  PSP  address  } 
MSDos(  regs  );  {  Execute  MSDos  function  request  } 

segment  :=  regs.Bx;  {  Segment  of  PSP  returned  by  DOS  } 

{IF  DOS  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  clear  the  Dos  Critical  Flag  } 
If  Mem[ DosStatl . CS : DosStatl . IP ]  <>  0  then 
Mem[ DosStat 2 . CS : DosStat 2 . IP ]  :=  $00; 


Control  C  (break)  Vector 


Arrayparam  =  array  [1..2]  of  integer; 

Const 

SavedCtlC:  arrayparam  =  (0,0); 

NewCtlC  :  arrayparam  =  (0,0); 

Procedure  GetCtlC(Var  SavedCtlC:arrayparam) ; 

Begin  {Record  the  Current  Ctrl-C  Vector} 

With  Regs  Do 
Begin 
AX:=$3523; 

MsDos ( Regs ) ; 

SavedCtlC[ 1 ] : =BX; 

SavedCt 1C [ 2 ] : =ES ; 


Control 


Vector 


Procedure  IRET;  {Dummy  Ctrl-C  routine} 

Begin 

inline ($5D/$5D/$CF) ;  {Pop  Bp/Pop  Bp/Iret} 


Procedure  SetCtlC(var  CtlCptr : ar rayparam) ; 


Begin 

With  Regs  Do 
Beg  -  n 
AX : =$2523; 

DS : =Ct lCptr I  2 ] ; 
DX : =CtlCptr  £11; 
MsDos ( Regs ) ; 
End; 

End ; 


(Set  the  New  Ctrl-C  Vector} 


{  Keyin  :  ReadKeaboard  } 

{ - } 

Function  Keyin:  char;  {  Get  a  key  from  the  Keyboard  } 

Var  Ch  :  char;  {  If  extended  key,  fold  above  127} 

Begin  { - } 

Repeat  until  Keypressed; 

Read ( Kbd , Ch ) ; 

if  (Ch  =  Esc)  and  KeyPressed  then 
Begin 

Read ( Kbd , Ch ) ; 

Ch  :=  Char(Ord(Ch)  +  127); 

End; 

Keyin  :=  Ch ; 

End;  {Keyin} 

t - } 

{Beep  :SoundtheHorn  1 

{ - } 

Procedure  Beep(N  :integer);  { - } 

Begin  {  This  routine  sounds  a  tone  of  frequency  } 

Sound(n);  {  N  for  approximately  100  ms  } 

Delay ( 100 ) ;  { - } 

Sound (n  div  2); 

Delay ( 100 ) ; 

Nosound ; 

End  {Beep}  ; 


INTERRUPT 


{  Version  2.0,  1/28/86 
Bela  Lubkin 
CompuServe  76703,3015 

Apologetically  mangled  by  Lane  Ferris 

For  MS-DOS  version  2.0  or  greater.  Turbo  Pascal  1.0  or 
greater . 

Thanks  to  Marshall  Brain  for  the  original  idea  for  these 
routines.  Thanks  to  John  Cooper  for  pointing  out  a  small 
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flaw  in  the  code.  These  routines  provide  a  method  for 
Turbo  Pascal  programs  to  trap  MS-DOS  interrupt  24  (hex). 
INT  24h  is  called  by  DOS  when  a  'critical  error'  occurs, 
and  it  normally  prints  the  familiar  "Abort,  Retry, 
Ignore?"  message. 

With  the  INT  24h  handler  installed,  errors  of  this  type 
will  be  passed  on  to  Turbo  Pascal  as  an  error.  If  I/O 
checking  is  on,  this  will  cause  a  program  crash.  If  I/O 
checking  is  off,  IOResult  will  return  an  error  code.  The 
global  variable  INT24Err  will  be  true  if  an  INT  24h  error 
has  occurred.  The  variable  INT24ErrorCode  will  contain  the 
INT  24h  error  code  as  given  by  DOS.  These  errors  can  be 

found  in  the  DOS  Technical  Reference  Manual. 

It  is  intended  that  INT24Result  be  used  in  place  of 

IOResult.  Calling  INT24Result  clears  IOResult.  The  simple 

way  to  use  INT24Result  is  just  to  check  that  it  returns 
zero,  and  if  not,  handle  all  errors  the  same.  The  more 
complicated  way  is  to  interpret  the  code.  The  integer 
returned  by  INT24Result  can  be  looked  at  as  two  bytes.  By 
assigning  INT24Result  to  a  variable,  you  can  then  examine 
the  two  bytes:  ( Hi ( <var iable> ) -1 )  will  give  the  DOS 

critical  error  code,  or  (<variable>  And  $FF00)  will  return 
an  integer  from  the  table  listed  in  the  INT24Result 
procedure  (two  ways  of  looking  at  the  critical  error); 
Lo ( <var iable> )  will  give  Turbo's  IOResult.  A  critical 
error  will  always  be  reflected  in  INT24Result,  but  the 
IOResult  part  of  INT24Result  will  not  necessarily  be 
nonzero;  in  particular,  unsuccessful  writes  to  character 
devices  will  not  register  as  a  Turbo  I/O  error. 

INT24Result  should  be  called  after  any  operation  which 
might  cause  a  critical  error,  if  Turbo's  I/O  checking  is 
disabled.  If  it  is  enabled,  the  program  will  be  aborted 


except 

devices 

in  the  above  noted 

case  of 

writes 

to 

character 

Also 

note  that  different 

versions 

of  DOS 

and 

the  BIOS 

seem  to  react  to  printer  errors  at  vastly  different  rates. 
Be  prepared  to  wait  a  while  for  anything  to  happen  (in  an 
error  situation)  on  some  machines.  These  routines  are 
known  to  work  correctly  with: 

Turbo  Pascal  1.00B  PC- 
DOS;  Turbo 
Pascal  2.00B  PC-DOS;  Turbo  Pascal  2.00B  MS- 
DOS  ; 

Turbo  Pascal  3.01A  PC-DOS.  Other  MS-DOS  and  PC-DOS 
versions  should  work. 

Note  that  Turbo  2.0's  normal  IOResult  codes  for  MS-DOS  DO 
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NOT  correspond  to  the  i/o  error  numbers  given  in  Appendix 
I  of  the  Turbo  2.0  manual,  or  to  the  error  codes  given  In 
the  I/O  error  nn,  PC=aaaa/Pr ogram  aborted  message.  Turbo 
3.0  IOResult  codes  do  match  the  manual.  Here  is  a  table 
of  the  correspondence  (all  numbers  in  hexadecimal):  Turbo 


2.0  IOResult 

Turbo  error 

,  Turbo  3.0  IOResult - 

00 

00 

none 

01 

90 

record  length  mismatch 

02 

01 

file  does  not  exist 

03 

FI 

directory  is  full 

04 

FF 

file  disappeared 

05 

02 

file  not  open  for  input 

06 

03 

file  not  open  for  output 

07 

99 

unexpected  end  of  file 

08 

F0 

disk  write  error 

09 

10 

error  in  numeric  format 

0A 

99 

unexpected  end  of  file 

0B 

F2 

file  size  overflow 

OC 

99 

unexpected  end  of  file 

0D 

-  F0 

disk  write  error 

0E 

91 

seek  beyond  end  of  file 

OF 

04 

file  not  open 

10 

20 

operation  not  allowed  on  a 
logical  device 

11 

21 

not  allowed  in  direct  mode 

12 

22 

assign  to  standard  files  is  not 
allowed 

-- 

F3 

Too  many  open  files 

Bela  Lubkin 

CompuServe  76703,3015  1/28/86} 

Const 

INT24Err:  Boolean=False ; 

INT2  4ErrCode :  Byte  =  0; 

01dINT24:  Array  [1..2]  Of  Integer= ( 0, 0  ) ; 

Var 

RegisterSet:  Record  Case  Integer  Of 

1:  ( AX , BX,CX, DX, BP, SI , DI , DS, ES, Flags  : 
Integer ) ; 

2:  ( AL , AH , BL , BH, CL, CH , DL , DH :  Byte); 

End  ; 

Procedure  INT24;  {  Interrupt  24  Service  Routine  } 

Begin 

I nl ine (  $2E/$C6/$06/  Int24Err  / 

$01/$50/$89/$F8/$2E/$A2/  Int24ErrCode 

/$5  8/$B0/$0O/$8  9/$EC/$5D/$CF)  ; 


{  Turbo:  PUSH 
MOV 

PUSH 

Inline: 

MOV 

PUSH 

MOV 

MOV 

POP 
MOV 
MOV 
POP 
I  RET 

} 

End ; 


{ - } 

{  I  N  T  2  4  0  N  } 

C - } 


{  Grab  the  Critical  error  ptr  from  the  previous  user} 
Procedure  INT240n;  {  Enable  INT  24h  trapping  } 

Begin 

I NT2  4Err : =False; 

With  RegisterSet  Do 
Begin 
AX:=$3524; 

MsDos ( RegisterSet ) ; 

If  ( 01dINT2 4 [ 1 ]  Or  01dINT24 [ 2 ]  )  =0  Then 
Begin 

Old  I NT2  4 [ 1 1 : =ES ; 

OldINT24 [ 2  3 : =BX; 

End; 

DS : =CSeg; 

DX : =Of s ( I NT2  4 ) ; 

AX:=$2524; 

MsDos (RegisterSet)  ; 

End ; 

End ; 


( - } 

{  I  N  T  2  4  0  F  F  > 

{ - } 


BP  Save  caller's  stack  frame 

BP,SP  Set  up  this  procedure's  stack 

frame 

BP  ? 

BYTE  CS : [ INT24Err ] , 1  Set  INT24Er r  to 

True 

AX 

AX,DI  Get  INT  25h  error  code 

CS : [ INT24ErrCode I , AL  Save  it  in 

INT24ErrCode 


AX 

AL, 

0 

Tell 

DOS 

to  ignore 

the  error 

sp. 

BP 

Unwind  stack  frame 

BP 

Let 

DOS 

handle  it 

from  here 

{Give  Critical  Error  Service  pointer  back  to  previous  user} 
Procedure  INT240ff; 


Begin 

INT24Err : =False; 

If  01dINT24 [1]<>0  Then 
With  RegisterSet  Do 
Begin 

DS : =01dINT24 [11; 

DX : =OldINT24 [ 2 ] ; 

AX:=$2524; 

Ms Dos (RegisterSet); 

End ; 

Old  I NT2  4 [ 1 ] :=0; 

01dINT24 ( 2 ] : =0 ; 

End ; 

Function  INT24Result:  Integer; 

Var 

I : Integer ; 

Begin 

I : =IOResult ; 

If  I NT2 4Er r  Then 
Begin 

I  :=I+256*Succ( I NT2 4 Err Code ) ; 
INT2  40n ; 

End ; 

INT24Result :=I  ; 

End; 


{  INT24Result  returns  all  the  regular  Turbo  iOResult  codes 
if  no  critical  error  has  occurred.  If  a  critical  error, 
then  the  following  values  are  added  to  the  error  code  from 
Turbo : 


256  : 

Attempt 

to  write  on  write  protected  dis 

k 

512: 

Unknown 

unit 

(  internal 

dos  error ] 

768: 

Drive  n 

ot  ready 

[drive  door  open  or 

bad  drive 

] 

1024  : 

Unknown 

command 

(  internal 

dos  error ] 

1280  : 

Data  er 

ror  (CRC) 

[bad  sector  or  drive 

1536: 

Bad  request  structure 

length  [  internal 

dos  error  ] 

1792  : 

Seek  er 

ror 

[bad  disk 

or  drive] 

2048  : 

Unknown 

media  type 

[bad  disk 

or  drivel 

2304  : 

Sector 

not  found 

[bad  disk 

or  drive] 

2560  : 

Pr inter 

out  of  paper 

[ anything 

that  the 

printer  mi 

ght  signal 

2816  : 

Write  f. 

ault 

[ character 

device  no 

ready] 

3072  : 

Read  fa 

ult 

( character 

device  no 

ready ] 

3328  : 

Genera  1 

failure 

[several  meanings! 

If  you  need  the  IOResult  part,  use 
I : =INT24Result  and  255;  (masks  out  the  INT  24h  code] 


For  the  INT  24h  code,  use 

I : =INT24Result  Shr  8;  [same  as  Div  256,  except  faster] 
INT24Result  clears  both  error  codes,  so  you  must  assign 
it  to  a  variable  if  you  want  to  extract  both  codes: 

J : =INT2 4 Result ; 

WriteLn( 'Turbo  IOResult  =  ',J  And  255); 

Wr i teLn ( ' DOS  INT  24h  code  =  ',J  Shr  8); 

Note  that  in  most  cases,  errors  on  character  devices  (LST 
and  AUX)  will  not  return  an  IOResult,  only  an  INT  24h 
error  code.  } 

{  Main  program.  Delete  next  line  to  enable  } 


t - } 

{  GET  ERROR  CODE  > 

{ - > 


Procedure  GetErr orCode; 

Begin 

Error  :=  IOresult;  {Read  the  I/O  result} 

If  INT24Err  Then 
Begin 

Error :=Error+256*Succ( INT24ErrCode ) ; 

I NT2  40n ; 

End ; 

Good  :=  (Error  =  0);  (Set  Boolean  Result  } 

End ; 


{ ****************************** 

*  STAYI16  .  410  * 

******************************} 

I nl i ne ( 

{ • ******************************************************  •  } 

{  ; P  ROCESS  INTERRUPT  16  ;} 

( ********************************************************  i 

{ ;  Function : } 

{ ;Provide  a  Keyboard  trap  to  allow  concurrent  processes  to 
run  in  the  background  while  a  Turbo  Read  is  active. 


{; 

Copyright  (C)  1985,1986} 

{; 

Lane  Ferris} 

{; 

-  The 

Hunter's  Helper  -} 

i; 

Distributed  to  the  Public  Domain  for 

use  without 

profit. 

Original  Vers i on5 . 15 . 8 5 } 

C; 

t 

On  entry  the  Stack  will  already  contain:  ;} 

{; 

t 

1)  Sp  for  Dos 

;  > 

/ 

2 )  Bp  for  Dos 

; } 

/ 

3)  Ip  for  Dos 

;  1 

<; 

/ 

4 )  Cs  for  Dos 

; } 

f; 

/ 

5)  Flags  for  Dos 

;  > 

$5D 


(Pop 


/$5D 


/$80/$FC/$00 


/$74/$2A 


/$80/$FC/$01 


/$74/$05 


/$2E 


/$FF/$2E/>BIOS_INT16 


/$E8/$3F/$00 


/$9C 

/$74/$16 


/$  2E 


/$3A/$26/>OUR_HOTKEY 


{Pop  Bp  ; 

Restore  Original  Bp} 

{Cmp  Ah, 00  ; 

I f  Char  request, } 

{  Je  FuncOO  ; 

loop  for  character} 

{ Cmp  Ah , 0 1  ; 

If  character  availability  test} 

{  Je  FuncOl  ; 

go  check  for  char} 

(GoBiosl6 : } 

{  CS:  ; 

Go  to  Bios  Interrupt  16} 

{  Jmp  Far  [ >BIOS_Intl6 J } 

{ FuncOl : } 

{  Call  KeyStat  ; 

Look  at  Key  buffer} 

{  PushF} 

{  Jz  FretOl  ; 

Return  if  no  key} 

{  CS :  ; 

Test  for  HOT  KEY} 


{  Cmp 
Jne 


Ah, [ <Our_HotKey] } 
FretOl} 


/$75/$0F  Jne  FretOl} 

/ $B4/$00 

{  Mov  Ah,0  ; 

Remove  the  Hotkey} 

/$2E 

{  CS:  ; 

flags  are  removed  by  BIOS  return} 

/$FF/$1E/>BI0S_INT16 

{  Call  Dword  [ >BIOS_INTl6 ) } 

/$  2E 

{  CS :  ; 

Say  we  saw  the  HOT  Key} 

/$ 8 0/$0E/> STATUS/ <HOTKEY_ON 

{  Or  by  ( <Status ] , <HotKey_ON } 
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/$EB/$E4 


/$9D 

/$CA/$02/$00 


/$E8/$1F/$00 

/$74/$FB 

/$B4/$00 

/$9C 


{  Jmp  FuncOl  ;  } 

{FretOl : } 

{  POPF} 

{  RETF  2  ; 

Return  to  user} 

{FuncOO : } 

{  Call  KeyStat  ; 

Wait  until  character  available} 
{  Jz  FuncOO} 

{  Mov  Ah,0  ; 

Get  the  next  User  Key} 


{ 


/$2E 

/$FF/$1E/>BI0S_INT16 

{ 


/$9C 


{ 


/$2E  { 

/$3A/$26/>OUR_HOTKEY 
{  Cmp 

/$74/$04 


{ 


/$9D 


{ 


/$CA/$02/$00 


PUSHF  ;  } 

{  CS :  } 

Call  Dword  [ >BIOS_INT16 ] } 

PushF  ; 

Save  Return  Flags} 

CS:  } 

Ah, [ <Our_HotKey ] ;  Our  HotKey  ?} 

Je  GotHotKey  ; 

yes.. enter  Staysave  code} 

POPF  ; 

else  Restore  INT  16  flags} 


{  RetF  2  ; 

Return  W/Key  discard  original  INT  16  flags} 
{;  "..  give  it  to  Mikey. . he'll  eat  anything"} 
{ GotHotKey: } 

/$9D  {  POPF  ;  Discard  INT16  return  flags} 

/$2E  {  CS :  ;  Say  we  saw  the  HOT  Key} 

/$80/$OE/>STATUS/<HOTKEY_ON  {  Or  by  t <Status ] , <HotKey_ON } 
/$EB/$DE  {Jmp  FuncOO;  Get  another  Key} 

{;} 

{;  Call  the  Background  task  if  no  key  is  available} 

{;> 

{KeyStat : } 

/$B4/$01 


/$9C 

/$2E 


{  Mov  Ah, 01  ; 

Look  for  available  key} 

{  Pushf  ; 

Call  the  keyboard  function} 
CS :  } 
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Call  dw  t  <BIOS  INT16 ] } 


/$FF/$1E/>BI0S_INT16 

{ 

/$74/$01 

{ 

No 

/$C3 


Jz 

Character 


ChkDosCr 

available 


/ 

from  Keyboard} 


{  RET  ; 

else  return  with  new  flags  and  code} 
{ ChkDosCr : } 


/$06 


{ 

Push 

ES 

Check  if  DOS  Critical  error  in  effect} 

/$56 

{ 

Push  Si} 

/$  2E 

{ 

CS:  } 

/ $C4/$36/>DOSSTAT2 

{ 

Les 

Si,  [ >DOSStat 2  ]  } 

/$26 

{ES : 

;  Zero  says 

DOS  is  i nterr uptable } 

/$AC 

{ 

Lodsb 

/ 

$FF  says  Dos 

is  in  a  critical  state} 

/$2E 

{ 

CS  :  } 

/$C4/$36/>DOSSTATl 

{ 

Les 

S  i ,  [ >DosStatl  ]  ; 

If  INDOS  then  INT  $28  issued  by  DOS} 

/$26 

{  ES: 

i 

so  we  dont  have  to.} 

/ $0A/$04 
/$  2E 

{ 

Or 

Al, (SI  ]  } 

{ 

CS : 

/ 

Account  for  active  interrupts} 

/$0A/$06/> INTR 

FLAGS 

{ 

Or 

Al,  [<Intr_Flags]; 

Any  flags  says  we  dont  issue  call} 

/$5E 

{ 

Pop 

Si  ; 

to  the  background.} 

/$07 

/$  3C/$01 

{ 

Pop 

Es} 

{ 

Cmp 

Al ,01  ; 

Must  be  INDOS  flag  only} 

/$  7F/$02 

{ 

JG 

Skip28  ; 

DOS 

cannot  take 

an  interrupt  yet} 

/$CD/$28 

{ 

INT 

$28  ; 

Call 

Dos 

Idle  function  (background  dispatch) 

{ Sk ip28 

:  } 
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.  * .  • 
1 


>>kll  m\  m£»  k’VoJI ^  jlIu 


&J.  >»r«  t.«A  I 


,  ■%  <( 


i 


/$  31/$C0 


/  $C3 


Xor  Ax, Ax 

Show  no  keycode  available} 
{  RET  } 

- } 


{******************************* 
*  S  T  A  Y  I  1  3  .  410  * 

*******************************} 


I nl ine  ( 

{;  STAY 113.400} 

{; - ; } 

{;  Routine  to  Set  a  Flag  when  INT  13  Disk  I/O  is  active} 
$5D  Pop  Bp  ; 

Remove  Turbo  stack  frame} 

/$5D  {  Pop  Bp} 

/$2E  {  CS:} 

/$80/$0E/>I NTR_FLAGS/ < I NT1 3_ON 

{  Or  by 

[ <Intr_f lags ] , <INT13_on  ;  Say  INT  13  is  Active} 

/$9C 

{  Push  ;  Invoke  Original  Disk  INT  13} 

/$  2E  {  CS:} 

/$FF/$1E/>BI0S_INT13 

{  Call  dw  [ <BIOS_INT13 ] } 

/$9C 

{  Pushf  ; 

Save  Return  Flags} 

/ $  2E  {  CS:} 

/$80/$26/> INTR_FLAG5/ <FOXS - INT13_ON 

{  And  by  [ <Intr_f lags ] ,  <Foxs-INT13_on; 

Clear  INT  13  Active  flag} 

/$9D 

{  Popf  ; 

Retrieve  results  flags} 

/$CA/$02/$00 

{  RETf  2  ; 

Throw  away  old  flags} 


{; 


} 


/ 


{****•  ***********  ***************** 
*  STAYI21.410  * 

********************************} 


Inline ( 

{;  STAYI 21.400} 

{; - } 

{;  Routine  to  Set  a  Flag  when  certain  INT21  functions  are 
active.  Functions  to  be  flagged  are  identified  in  the  main 
Stayres  routine.  Cf .  Functab  array. } 

$  5D 

{  Pop  Bp  ;  Remove  Turbo  Prologue) 


/$  5D 

/$9  C 
/  $FB 


/$80/$FC/$62 

{ 


{  Pop  Bp) 

{  PushF) 

STI 

Allow  interrupts) 


{  Cmp  Ah ,  $  6  2  ; 

Verify  Max  function) 

/$7F/$28  {  Jg  Sk ipl 21 } 

{;  Some  Int  21  functions  must  be  left  alone.  They  either 
never  return,  grab  parameters  from  the  stack,  or  can  be 
interrupted.  This  code  takes  account  of  those 
possibilities . ) 


/$50 


/  $  5  3 


/$86/$C4 


/$BB/> FUNCTAB 


/$2E 

/$D7 

/$08/$C0 


/$5B 


/  $  5  8 

/$7^/$19 


!  Push  Ax 

Skip  functions  marked  1  in) 

Push  Bx 

in  the  function  table.) 

{  Xchg  Ah,Al) 

Mov  Bx,>FuncTab 
Test  Int  21  function) 

{  CS :  } 

{  Xlat) 

Or  Al,Al 

Wait  for  functions  marked  zero) 

{  Pop  Bx 

in  the  function  table.) 

{  Pop  Ax) 

{  Jnz  SkipI21) 

{ Setl 21 : ) 


It  r  -» 


/$80/$0E/>INTR_FLAGS/ < I NT 21  ON 


{ 


/$9D 
/  $9C 
/$2E 

/ $FF/$1E/>D0S_INT21 
{ 


/$FB 


Or  by  [ <Intr_f lags  1 , <INT21_on 
Say  INT  21  is  Active} 

{  PopF} 

{  Pushf) 

{  CS :  } 

Call  dw  [<DOS_INT21] 

;  Invoke  Original  INT  21} 


{  STI 

;  Insure  interrupts  enabled} 

/$9C 

{  Pushf 

Save  Return  Flags} 

/$2E 


{  CS:  ; 

Clear  INT  21  Active} 

/$80/$26/> INTR_FLAGS/<FOXS-INT21_ON 

{  And  by  [ <Intr_f lags ] , <Foxs-INT21  on} 

/$9D 

{  Popf 

Retrieve  the  flags} 

/ $CA/$02/$00  {  RETF  2} 

{ Sk ipl 21 : 

;  Invoke  Int  21  w/o  return} 

/$9D  {  PopF} 

/$2E  {  CS:} 

/  $FF/$2E/>DOS_INT21 

{  Jmp  dw  t >Dos_INT21 ] } 


/ 


/ 


c; . } 

); 

{*********************************************************} 
{*  CLKI8.410  Clock  Interrupt  Service  *} 

{*********************************************************} 
(*  CLOCK_I 8 . INL  *) 

(*  Fm:  Neil  J.  Rubenking  [72267,1531] 

On  each  call  to  INT  8,  this  routine  checks  if  the 
timer  is  "running".  If  it  is,  it  checks  if  the  activation 
time  has  been  reached.  If  it  has,  the  STATUS  byte  is  set 
to  include  the  "HotKey_On"  and  "From_Timer"  bits.  After 
that,  control  passes  on  to  the  STAYI8.0BJ  code  *) 

( *N JR* ) 

INLINE* 

$9C/  {PUSHF} 

$2E/$F6/$06/>Status/<Timer_On/ 

{TEST  BY  CS:status,  timer_on} 

{JZ  nothing} 


$74/$29/ 


$50/ 

{PUSH 

AX} 

$1E/ 

{PUSH 

[  DS} 

$B8/$40/$00/ 

{MOV 

AX, 40h} 

$8E/$D8/ 

{MOV 

DS, AX} 

$A1/$6E/ $00/ 

{MOV 

AX, [6E] } 

$2E/$39/$06/>timer 

_hi/ 

{CMP 

CS : timer 

X 

< 

> 

•H 

sz 

1 

$75/$16/ 

{ JNZ 

not_yet } 

$Al/$6C/$00/ 

{MOV 

AX,  [  60  } 

$2E/$39/$06/>timer 

_Lo/ 

{CMP 

CS : timer 

X 

< 

o 

i 

$7D/$0C/ 

{ JGE 

Not_Yet } 

$2E/$80/$0E/>Status/<HotKey_On/ 

{OR  BY  CSrstatus,  hotkey_on} 
$2E/$80/$0E/>Status/<  f r om_Timer/ 

(OR  BY  CSrstatus,  from_timer} 

{ N  o  t  _Y  e  t } 

$ IF/  {POP  DS} 

$58/  {POP  AX} 

{ nothing } 

$9D ) ;  {POPF} 

( *NJR*  ) 

{ - End  Clock  18  - } 


{********************************* 
*  STAYI8.420  * 


Inline ( 


{;  STAYI 8.413} 

{; - * 

{;  Routine  to  Await  Outstanding  I/O,  then  post  Stayr 


Active } 
$  5D 


/$5D 

/$9C 

/$2E 

/$FF/$1E/>BI0S_INT8 

{ 


/  $  2E  { 

/$F6/$06/>STATUS/<HOTKEY_QN 

{  Tesl 


/$74/$39  { 
/  $  2E  { 
/ $F6/$ 06 /> STATUS/ < INUSE 

{  Ti 


{ 


Pop 

Bp  ; 

re  Turbo  Prol 

ogue  } 

Pop 

Bp} 

Pushf } 

CS : 

} 

>BI0S_INT8 1 

/ 

ginal  INT  8} 

CS : 

} 

by 

[ <Status  ] 

,  <HotKey_on 

we 

r ece i ved 

the  HOKEY} 

Jz 

NoGo} 

CS  : 

} 

by 

[ <Status  ] 

, < Inuse 

ie  .  . 

then  No 

go } 

Jnz 

NoGo} 

/$75/$  31 


{  CS:  ; 

Have  the  HotKey} 

/$80/$3E/>WAI TCOUNT/$00 

{  Cmp  by  [ <Wa itCount ] , 00 
If  waiting/  check  time} 

/ $1 5/ $22  {  Jnz  Waiting} 

{;  If  Not  already  waiting  I/O,  not  already  in 
HotKey  received  see  if  DOS  is  now  inter ruptable } 

{ChkIO: } 


/$06 


/$56 
/$50 
/  $2E 

/$C4/$36/>DOSSTATl 

{ 

/$26 

/$AC 


/$2E 

/$C4/$  36/>DOSSTAT2 


/$26 

/ $0A/$04 
/$2E 

/$0A/$06/> INTR_FLAGS 

{ 

Add 

/$58 

/$5E 

/$07 

/$7  4/ $0E 

{ 

Wai 

/$2E 

/$C6/$06/>WAITCOUNT/$10 


{  Push  ES 

Save  registers} 

{  Push  Si} 

{  Push  Ax} 

{  CS:  } 

LES  S  i ,  [ >DOSstat 1 ] 
Fetch  Dos  status  1} 

{  ES:  } 

{  Lodsb 

Fetch  Status  byte  from  dos} 
{  CS :  } 

LES  SI, [ >DOSstat2 ] 

Add  second  status  byte} 

{  ES :  } 

{  Or  Al , [ SI ] } 

{  CS:  } 

Or  Al , [ < I ntr  _Flags ] 
nterrupt  active  flags} 

{  Pop  Ax} 

{  Pop  Si} 

{  Pop  ES} 

Jz  Go 

for  inactivity} 

{  CS:  } 


{ 

Mov 

by  [ <WaitCount ] ,  $10 

Set 

Wait  count} 

{Wa 

iting : } 

/$  2E 

/$FE/$0E/>WAITCOUNT 

{ 

CS:  } 

{ 

Dec  by 

[ <Wa itCount  ] 

Decrement 

wait  count} 

/$74/$D7 

{ 

Jz  ChkIO} 

{NoGo :  } 


{  I  RET} 


/ 


use,  and 


/ 


/ 


/ 


i 


/ 


f 


/ 


/  $CF 


(GO:  ;  Enter  the  user's  Turbo  Procedure) 

/$2E  {  CS : ) 

/ $FF/$16/>USERPROGRAM  {  Call  [ <UserProgr am ]} 

/$CF  {  IRET} 


{; . } 

); 


{******************************** 
*  STAYI28.410  * 

********************************} 


Ini ine ( 

{;  STAYI 28.400} 

{; - } 

{;  Routine  to  Invoke  User  Code  When  Hotkey  or  DOS  idle} 
$5D 

{  Pop  Bp  ; 

Remove  Turbo  Prologue} 

/$5D  {  Pop  Bp} 

/$9C  {  Pushf} 

/$2E  {  CS:} 

/$FF/$1E/>D0S_I NT 2 8 

{  Call  dw  [>DOS_INT28] 

;  Invoke  Original  INT  28} 

/$2E  {  CS:} 

/$F6/$06/>STATUS/<HOTKEY_ON 

{  Test  by  [ <Status ] , <Hotkey_on  ; 

Have  we  received  the  HOKEY} 

/$7  4/$  2  5  {  Jz  NoGo} 

/$2E  {  CS:} 

/$F6/$06/>STATUS/< INUSE 

{  Test  by  [ <Status ] , <Inuse 

If  Inuse.,  then  No  go} 

/$75/$lD  {  Jnz  NoGo} 

{;  If  Not  already  waiting  I/O,  not  already  in  use. 
Hotkey  received  see  if  DOS  is  now  interruptable } 

{ Chk 1 0 : } 


/$06 


{ 


/$56 
/$  50 
/$2E 

/$C4/$36/>DOSSTAT2 

{ 


Push  ES 
Save  registers} 

{  Push  Si} 
{  Push  Ax} 
{  CS:  } 


LES  SI, [>DOSstat2J 
Fetch  DOS  Critical  status  byte} 
{  ES  :  } 

{  LodSb } 

{  CS:  } 


/$26 
/  $  AC 
/$2E 


/$0A/$06/> INTR_FLAGS 

{ 

/$58 
/$  5E 
/$07 

/$75/$09 


Or  Al, [ <Intr_Flags ] 
Add  Interrupt  active  flags} 
{  Pop  Ax} 

{  Pop  SI} 

{  Pop  ES} 


/$2E 


Jnz  NoGo 

Wait  for  inactivity} 


{  CS :  ; 

Have  the  HotKey} 

/$80/$3E/>WAITCOUNT/$00 

{  Cmp  by  [ <WaitCount ] , 00  ; 

If  timer  waiting,  go} 

/$E9/$01/ $00  {  Jmp  Go} 

{NoGo: } 

/$CF  {  IRET} 

{GO: 

;  Enter  the  User's  Turbo  Procedure} 
/$2E  {  CS:} 

/$C6/$06/>WAITCOUNT/$00 

{  Mov  by  [ <WaitCount ] , 00  ; 

Kill  INT8  wait  count} 

/$2E  {  CS:} 

/$FF/$16/>USERPROGRAM 

{  Call  [ <UserProgram] } 

/$CF  {  IRET) 

{; . ) 

Inline ( 

{"♦A***************************************************-} 

{;  STAYSAVE.  420  ;} 

{.*****************************************************•} 

{;Version  4.15} 

{;> 

{;  This  Inline  routine  will  save  the  regs  and  Stack  for 
Stay  resident  programs.  It  restores  DS  and  SS  from  the 
previously  saved  integer  constants  "OurDseg"  and 
"OurSSeg".  DS  is  restored  from  the  Turbo  Initialization 
Savearea . } 

{;  Author:  Copyr .  1985,  1986} 

{;  Lane  Ferris} 

{;  -  The  Hunter's  Helper  -} 

{ ; Distr ibuted  to  the  Public  Domain  for  use  without  profit.} 
{;  Original  Version  5.15.85} 
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WWW 


.V 


y-f 

fe 


$FA 


/$2E 

/$ 80/ $OE/>STATUS/< INUSE 

{ 

Set 

{ ;  Switch  the  SS 

t; 

/$2E 

/$8C/$1E/>USRDSEG 


{  C  LI  ; 

Stop  all  interrupts} 
{  CS:  } 


Or  by  [ <Status ] ,  < I nUse 
Active  bit} 

Sp  reg  pair  over  to  ES:Si} 
Put  Turbo's  Stack  pointers  into  SS:Sp} 

{  CS:  } 


,/$2E 

/$8C/$16/>USRSSEG 


{ 


/$2E 

/$89/$26/>USRSPTR 


{  Mov  [ >UsrDSeg ] , DS 

Save  Usr  DataSegment} 

{  CS:  } 

Mov  [ >UsrSSeg ] , SS 

Save  Usr  Stack  Segment} 
{  CS:  } 


{ 


Mov  [ >Usr SPtr ] , Sp 

Save  Usr  Stack  Ptr} 

{;  Stack  User  interrupted  pgm  regs  for  Exit.} 

{;  These  are  the  original  interrupt  process  regs} 
{;  that  must  be  returned  on  interrupt  return} 

{  CS :  } 

{  Mov  DS , [ >Our Dseg ] 

from  DataSegment} 


/$  2E 

/$8E/$1E/>0URDSEG 
Get  Turbo  Stack  pointer 
/$2E 

/$8E/$16/>OURSSEG 


{ 


cs : } 


{ 

Mov 

SS, [ >OurSSeg ] } 

/$8B/$26/$74/$01 

{ 

Mov 

Sp, [ $174 )  ; 

Sp  set  by  code  at  $B2B  in  Turbo  initialization} 

/$55 

{ 

Push 

Bp} 

/$  50 

{ 

Push 

Ax} 

/$53 

{ 

Push 

Bx} 

/$51 

{ 

Push 

Cx} 

/$52 

{ 

Push 

Dx} 

/$56 

{ 

Push 

Si } 

/$57 

{ 

Push 

Di } 

/$06 

{ 

Push 

Es} 

{ ;  Save 

the  InDOS  stack 

to  avoid 

recursion  crashes 

Wr i te In  )  .  } 

Setup  destination 

to  Turbo 

Stack } 

/$89/$E7 

{ 

Mov 

Di,Sp  ; 

Dest 

is  our  stack} 

/$  4F 

{ 

Dec 

Di  ; 

Back 

off  current  used  word} 

/$4F 

{ 

Dec 

Di  } 

/$  2E 

{ 

CS  :  } 

/$8C/$D0 

{ 

Mov 

Ax, SS  ; 

-  164 
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Turbo  stack  is  destination} 

/$8E/$C0  {  Mov  ES , Ax } 

{;  Setup  source  from  DOS  Indos  primary  stack} 

/$2E  {  CS:} 

/$8E/$1E/>D0SSSEG  {  Mov  DS , [ >DosSSeg ] 

Source  is  DOS  Indos  primary  stack} 


/$  2E 

/$8B/$36/>DOSSPTR 


/$B9/$40/$00 
/$  2E 

/$89/$OE/>DOSSSIZ 


CS:  } 


/$4E 
/$  4E 

/$89/$E0 


/$29/$C8 

/$29/$C8 

/$89/$C4 

/$FD 

/ $F2/$ A5 

/$89/$FC 


/  $FC 
/S2E 


{  Mov  S i , [ >DosSptr ]  ; 

DOS  primary  stack  offset} 

{  Mov  Cx,$40} 

{  CS:  } 

{  Mov  [ >DosSs i z ] ; 

remember  the  stack  word  size} 

{  Dec  Si  ; 

point  last  word  on  stack} 

{  Dec  Si} 

{  Mov  Ax,Sp  ; 

Get  stack  pointer  higher  to  avoid} 


{  Sub  Ax , Cx 

overwriting  during  enabled  REP  functions} 
{  Sub  Ax , Cx } 

{  Mov  S  p , Ax } 

{  STD  ; 

Move  like  Pushes  on  stack } 

{  Rep  Movsw  ; 

Move  users  stack  to  our  own} 

{  Mov  Sp,Di  ; 

Update  our  stack  pointer  to  available  word.} 
{  Cld } 

{  CS:  } 


/$8E/$1E/>0URDSEG 


/$FB 


{  Mov  DS, [ >OurDSeg ]  ; 

Setup  Turbo  Data  Segment  Pointer} 

{  STI  ; 

Enable  Interrupts} 


{; 

); 


} 


Ini lne ( 


{ ************** 
{  '  S  T  A  Y 
{  This  is  the 
{ • ************* 

{  Inline  Code 
Turbo  Resident 
Resident  progra 


{  ;  Copr . 

{  ;  Author 

{  ; 

{  Distributed  t 
{ 


*****************************************•} 

R  S  T  R  .  4  2  0  ;  > 

StayRstr.Inc  file  included  above  ;} 

*****************************************•} 

{ ; Version  4.15} 

to  restore  the  stack  and  regs  moved;  to  the 
Stack  which  allows  Turbo  Terminate  &  Stay 
ms .  } 

1985,  1986} 

:  Lane  Ferris} 

-  The  Hunter's  Helper  -} 

o  the  Public  Domain  for  use  without  profit.} 

;  Original  Version  5.15.85} 


{;  Restore  the  Dos  (or  interrupted  pgm)  Regs  and  Stack  ;} 

- ;} 

{;  Replace  the  Users  Saved  Stack} 

{;  Note  that  pushes  on  the  stack  go  in  the  opposite 
direction  of  our  moves.  Thus  we  dont  worry  about  REP  stack 
activity  overlaying  the  enabled  REP  fuction.} 

$FA  {  CLI} 

/$  2E 

{  CS:  ; 

Avoid  stack  manipulation  if  never  "StaySaved"} 


/ $Al/>DOSSSI Z 
/$09/$C0 
/$74/$20 
/$8C/$D0 


/ $8E/$D8 
/$89/$E6 


{  Mov  Ax, t >DosSsiz ] } 

{  Or  Ax, Ax} 

{  JZ  NotinDos} 

{  Mov  Ax, SS  ; 

Source  is  our  Stack} 

{  Mov  DS , Ax } 

{  Mov  Si,Sp  ; 

Point  to  Last  used  USER  word  on  our  stack} 


/$46 
/  $  4  6 
/$  2E 

/$8E/$G6/>DOSSSEG 


/  $2E 

/$8B/$3E/>DOSSPTR 

/$2E 

/$8B/$OE/>DOSSSI Z 


Dest 


Inc  Si} 

Inc  Si} 

CS : } 

Mov  ES, [ >DosSSeg ]  ; 
Dos  indos  primary  Stack} 
CS:  } 

Mov  Di , [ >DosSptr ] } 
CS:  } 


Cx, [ >DosSsiz ] 


/$  29/$CF 


Saved  words} 


Sub  Di,Cx 
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V  V 


/$29/$CF 
/  $FC 

/$F2/$A5 


point  to  last  used  word  of  Dos  stack} 
{  Sub  Di,Cx} 

{  CLD> 


/$89/$F4 


Rep  Movsw  ;Care£ul! 

Interrupt  are  enabled  here} 


{  Mov  Sp,Si 
Skip  over  moved  words} 
{;  — > 

{NotinDos : } 


/$  0  7 

{ 

Pop 

Es  } 

/$  5F 

{ 

Pop 

Di} 

/$5E 

{ 

Pop 

Si } 

/  $  5A 

{ 

Pop 

Dx} 

/$59 

{ 

Pop 

Cx} 

/$5B 

{ 

Pop 

Bx} 

/$58 

{ 

Pop 

Ax} 

/$2E 

{ 

CS: } 

/$80/$26/>STATUS/<FOXS-INUSE-HOTKEY_ON 

{  And  by  [ <Status ] , <Foxs-I nuse-HotKey_on 
Clear  INUSE  flag} 


/$2E 

{ 

CS:  ; 

• 

.  and 

Hotkey} 

/$8E/$1E/>USRDSEG 

{ 

Mov 

DS, [ <Usr DSeg ] } 

/S2E 

{ 

CS:  } 

/$8E/$16/>USRSSEG 

{ 

Mov 

SS, [ <usrSSeg 1 } 

/$2E 

{ 

CS:  } 

/$8B/$26/>USRSPTR 

{ 

Mov 

SP, [ <Usr SPtr ] } 

/$5D 

{ 

Pop 

Bp  ; 

Remove 

Bp,Sp 

from  Procedure  entry} 

/$5D 

{ 

Pop 

Bp} 

/  $FB 

{ 

STI 

/ 

enable  Interrupts} 
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INTRODUCTION 


The  IBM  Voice-Activated  Keyboard  Utility  lets  a  user 
speak  DOS  commands  or  the  commands  that  run  application 
programs  on  a  personal  computer.  The  user  talks  into  a 

microphone  or  a  telephone  attached  to  the  computer  through 
the  IBM  Voice  Communications  Adapter  (a  hardware  board)  and 
commands  that  have  been  trained  to  the  individual's  voice 

are  executed.  The  action  is  like  typing  the  actual 
commands  on  the  computer's  keyboard.  This  utility  may  be 
used  transparently  within  any  application. 

As  an  example,  once  the  user-defined  vocabulary  has 
been  trained  to  a  person’s  voice,  they  may  speak  "directory 
alpha  enter"  into  the  microphone  or  telephone  and  the 

directory  command  on  the  a:  (alpha)  drive  will  be 

executed.  The  command  words  are  arranged  such  that  only 
certain  words  are  active  at  a  particular  time.  That  is, 
many  of  the  DOS  commands  could  be  active  initially  but  once 
one  is  voiced  then  only  certain  other  words  become  active. 
For  example,  once  the  directory  command  has  been  voiced, 
then  only  the  parameters  wide,  pause,  enter,  or  cancel 
become  active.  This  simulates  the  same  order  that  is 
common  to  DOS  commands  entered  through  the  keyboard. 


In  order  to  use  a  command  vocabulary,  each  word  must 
be  trained  to  the  individual  user's  voice.  Words  must  also 
be  trained  to  each  individual  user's  voice  in  different 
environments.  That  is,  if  the  vocabulary  is  trained  by  one 
user  and  a  second  person  wishes  to  use  the  utility,  then 
the  second  person  has  to  retrain  the  words  to  their  unique 
voice  patterns.  Also,  if  the  original  person  trains  the 
words  with  a  quiet  background  and  moves  to  a  more  noisy 
background,  then  the  vocabulary  may  have  to  be  retrained 
for  full  voice  recognition.  Care  should  be  taken  when 
training  the  words  in  the  vocabulary  since  it  is  the  most 
important  factor  in  recognition  accuracy. 

This  guide  is  intended  to  simplify  the  task  of  a  user 
wishing  to  use  the  IBM  Voice-Act ivated  Keyboard  Utility  to 
voice  their  commands  to  the  computer.  The  sections 
following  will  discuss  hardware  and  software  requirements 
that  are  necessary  to  use  this  program.  Also,  installation 
instructions  for  using  this  utility  will  be  discussed.  An 
overview  of  using  the  utility  is  covered  under  the 
operating  instructions  section.  Next,  input  and  output 
formats  and  descriptions  are  discussed.  Finally, 
references  for  further  investigation  are  provided. 
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HARDWARE  AND  SOFTWARE  REQUIREMENTS 


The  IBM  Voice-Activated  Keyboard  Utility  works  in 
conjunction  with  and  through  the  IBM  Voice  Communi cat  ions 
Operating  System  software  and  the  IBM  Voice  Communications 
Adapter  hardware  board.  Therefore,  the  user  must  ensure 
that  both  the  software  and  hardware  are  installed  on  the 
computer  at  which  they  are  going  to  use  the  IBM  Voice- 
Activated  Keyboard  Utility.  A  microphone  or  telephone  that 
is  attached  to  the  IBM  Voice  Communications  Adapter  to 
communicate  to  the  computer  is  also  required. 

Hardware : 

Minimum  hardware  requirements  are  given  in  Table  5.1. 
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MINIMUM  HARDWARE  REQUIREMENTS 


IBM  PC/AT/XT  or  compatibles 
160  KB  memory 

Two  double-sided  diskette  drives 
(360  KB  /  1.2  MB)  or  one  double¬ 
sided  diskette  drive  (360  KB  / 

1.2  MB)  and  one  fixed  disk 

Monochrome  or  color  monitor 

An  IBM  Voice  Communications  Adapter 

A  high  impededance  microphone  with 

an  attached  subminiature  2.5  mm  (0.1  inch) 

connector  or  an  FCC  approved  telephone  set 


Table  5.1 

Software : 

Minimum  software  requirements  are  given  in  Table  5.2. 


uYl/aA.1 


-  175  - 


MINIMUM  SOFTWARE  REQUIREMENTS 


DOS  2.10  or  higher  for  IBM  PC/AT  or 
DOS  3.00  or  higher  for  IBM  XT 
IBM  Voice  Communications  Operating 
Subsystem  Program 

IBM  Voice-Activated  Keyboard  Utility, 
6489831 


Table  5.2 


INSTALLATION  INSTRUCTIONS 

Installation  Instructions  for  the  IBM  Voice 
Communications  Adapter  may  be  found  in  IBM  Installation  and 
Setup  Voice  Communications,  6280711.  Basic  installation 
can  be  accomplished  in  30  minutes  or  less  by  an 
inexperienced  person. 

Installation  instructions  for  the  IBM  Voice 
Communications  Application  Program  Interface  (the  software 
driver)  may  be  found  in  IBM  Voice  Communications 
Application  Program  Interface  Reference  Vol  1  Chap  2, 
6280743.  The  software  resides  in  a  subdirectory,  either  on 
a  hard  drive  or  floppy  diskette  named  vcapi .  The  Voice 


Communications  Operating  Subsystem  Program  diskette  is  self 
installing  and  is  a  fairly  simple  procedure.  Different 
procedures  exist  for  installing  the  system  on  hard  or 
floppy  disks. 

To  load  the  operating  system  and  the  required  discrete 
utterance  recognition  software,  the  following  commands 
should  be  placed  in  the  autoexec.bat  file: 

set  vcapi  =  y:\vcapi\ 

(where  y  is  drive  containing  the  vcapi  directory  and  vcapi 
is  the  name  of  the  DOS  directory  containing  the  API  code.) 

y:\vcapi\vcapidrv  /o  11 

(the  /o  11  option  allows  the  discrete  utterance  recognition 
function  to  be  loaded  when  the  API  driver,  vcapidrv,  is 
loaded  at  boot  time.) 

To  setup  the  IBM  Voice-Activated  Keyboard  Utility, 
place  the  utility  diskette  in  drive  A  and  enter  keysetup. 
A  series  of  questions  appear  which  should  be  answered 
according  to  the  particular  user's  configuration.  More 
specific  installation  procedures  can  be  found  in  the  IBM 
Voice-Activated  Keyboard  Utility,  6489838,  Chap  2. 


The  IBM  Voice-Activated  Keyboard  Utility  is  based  on 
overlays,  executable  code  segments  that  are  loaded  into 


l 


memory  only  when  needed.  Once  the  operating  system  has 
been  installed,  the  particular  overlay  that  is  desired  to 
be  used  must  be  loaded.  For  example,  each  particular 
application  may  have  a  specific  overlay  that  is  setup  for 
that  application  only. 

Each  overlay  when  developed  Is  entered  into  a  plain 
text  file  with  the  extension  .lan  according  to  the  rules 
found  in  the  above  reference.  It  is  then  compiled  using 
the  Voice  Command  Language  Compiler  (VOCL)  to  create  an 
executable  overlay  or  a  language  description  file  with  the 
extension  .ldf. 


OPERATING  INSTRUCTIONS 


To  start  the  utility  and  load  the  console  and  DOS 
overlays,  enter  the  batch  file  name  keyinit.bat.  This 
batch  file  executes  a  sequence  of  initialization  commands, 
ie.,  sets  up  the  specified  path,  turns  the  microphone  or 
telephone  on,  installs  the  selected  overlay,  etc.  Initial 
training  must  be  accomplished  at  this  point.  An  excellent 
tutorial  is  given  in  Chap  3  of  reference  3  found  at  the  end 
of  this  guide.  Once  the  initial  training  is  accomplished, 
then  the  vocabulary  remains  trained  for  the  next  and 


succeeding  user  sessions. 
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5555 


After  the  commands  have  been  trained,  they  are  now 


ready  for 
available 
or  enter 
words  are 
any  time 
special 
keys . 


use.  If  at  any  time,  the  user  desires  to  see  the 
commands,  they  may  voice  the  command  "voice-menu" 
ALT-M.  A  list  of  active  words  appear.  Trained 
marked  with  an  asterisk  prefix  and  may  be  used  at 
.  Other  keystrokes  can  also  be  set  to  activate 
commands.  Table  5.3  lists  common  VCOM  command 


VCOM  COMMAND  KEYS 


Keys 

Voice 

Command 

Associated  VCOM 

command 

ALT-C 

Voice 

Console 

vcom 

console 

ALT-M 

menu 

vcom 

menu/perma 

nent 

ALT-L 

vcom 

microphone 

on 

ALT-0 

vcom 

microphone 

off 

ALT-T 

vcom 

microphone 

momentary 

ALT-R 

vcom 

remember 

ALT-D 

vcom 

define 

Table  5.3 


ALT-C  activates  the  voice  console  and  allows 
actions  to  be  performed  on  the  vocabulary  such  as 
words,  training  words,  etc. 


several 

defining 
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ALT-M  displays  the  menu  of  current  active  words 


ALT-L  turns  the  microphone  on. 


ALT-0  turns  the  microphone  off. 


ALT-T  turns  the  microphone  on  momentarily  until  someone 
speaks  at  which  time  it's  turned  off  again. 


ALT-R  starts  the  remembering  of  a  sequence  of  keystrokes. 


ALT-D  stops  the  remembering  of  a  sequence  of  keystrokes  and 
works  in  conjunction  with  the  ALT-R  command. 


VCOM  commands  are  commands  that  may  be  entered  from 
the  DOS  command  line  and  which  are  then  passed  via  the 
program  vcom.com  to  the  utility.  The  ALT  key  combinations 
are  shortcut  ways  to  execute  these  same  commands.  These 
VCOM  commands  and  others  may  be  entered  at  any  time  from 
the  DOS  prompt. 

Other  overlays  that  have  been  created  may  be  loaded 
using  the  VCOM  command: 


vcom  overlay  filename 


The  special  overlay,  console. ldf,  is  included  within 
the  utility  that  allows  the  user  to  speak  the  Voice  Console 
commands.  This  overlay  may  be  loaded  to  remain  resident, 
trained,  then  another  user  overlay  may  be  loaded.  The 
console. ldf  remains  activated  so  the  user  can  speak  the 
Voice  Console  commands  such  as  "yes"  or  "no"  and  other 
training  commands  when  using  the  second  overlay. 


In  summary,  the  IBM  Voice-Activated  Utility  runs  in 
the  background  using  trained  voice  commands  to  generate 
preprogrammed  keystrokes  that  DOS  or  an  application  needs. 
Each  application  may  have  its  own  unique  program  or 
overlay.  A  special  overlay,  console. ldf,  allows  the  user  a 
way  to  voice  commands  to  the  Voice  Console. 

Training  the  vocabulary  is  one  of  the  most  critical 
aspects  of  using  the  Voice-Activated  Keyboard  Utility. 
Training  options  allow  words  to  be  trained  in  any  order, 
varying  the  number  of  training  instances  (up  to  nine 
different  samplings  or  instances  of  a  word  may  be 
remembered;  as  the  number  of  instances  increases,  the 
quality  of  voice  recognition  increases),  and  listing  all 
words  associated  with  a  particular  overlay.  A  speech  test 
procedure  is  provided  to  assure  that  trained  words  are 
recognized  and  produce  the  desired  keystrokes. 
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Each  appl icat i on ' s  grammar  may  vary.  For  example,  in 
DOS,  only  certain  parameters  can  be  input  after  one  command 
is  given  as  in  the  command  "directory"  followed  by  the 
parameter  "wide".  The  user  can  establish  their  choice  of 
active  words  whose  keystrokes  can  be  redefined  at  any  time 
using  the  Voice  Console.  Different  word  groups  can  be 
activated  when  they  are  needed  such  as  when  the  word 
"macro"  is  voiced.  This  command  will  activate  an  entire 
new  set  of  voice  selectable  commands  that  have  been 
previously  defined.  Finally,  each  user  may  establish  and 
load  unique  overlays  designed  for  their  application. 

The  VCOM.COM  program  passes  utility  keyboard  commands 
(VCOMs)  entered  at  the  DOS  command  prompt  to  the  utility 
program.  Various  commands  exist  to  do  such  things  as 
loading  and  unloading  overlays,  selecting  input  device 
(microphone  or  telephone),  selecting  the  number  of  training 
instances,  turning  the  microphone/telephone  on  or  off, 
etc.  An  example  follows: 

A>vcom  overlay  dos 

which  loads  and  activates  the  overlay  dos. Id f  into  memory. 
VCOM  commands  available  for  use  may  be  found  in  Chapter  5 
of  the  IBM  Voice-Activated  Keyboard  Utility  manual. 


A  user  may  design  an  overlay  specific  to  their 
application.  An  overlay  tells  the  Voice-Activated  Keyboard 
Utility  the  names  of  the  words  that  can  be  spoken,  the 
order  in  which  the  words  can  be  spoken,  the  keystroke 
sequences  generated  by  the  words,  the  name  of  the  word 
groups,  and  a  list  of  commands  (VCOMs)  to  be  executed  when 
the  overlay  is  loaded.  The  following  steps  should  be  taken 
to  create  an  overlay: 

1.  Create  a  text  or  language  file  (.lan)  that  defines 
the  overlay. 

2.  Run  the  VOCL  compiler  to  create  an  executable 
language  definition  file  (.ldf). 

3.  Train  the  vocabulary  using  the  Voice  Console. 

4.  Test  the  overlay  by  using  the  speech  test. 

Specific  rules  and  syntax  for  generating  an  overlay  can  be 
found  in  Chapter  7  of  the  IBM  Vo  ice-Act  ivated  Keyboard 
Utility  manual . 

An  example  of  a  simple  user  developed  overlay  follows: 


O.K; 


menu  " ' a-m ' " ; 
voice_console  "'a-c'"; 
line_up  " 'esc'H"; 
line_down  '"esc'P"; 
scroll_up  "'c-W'"; 
scroll_down  " ' c - Z ' " ; 
page_up  " 1  esc  1 1 " ; 
page_down  "'esc'Q"; 
delete_line  " ' c - Y ' " ; 
delete_character  '"esc'S"; 
begin_block  '"c-K'b"; 
end_block  " ’ c-K’k"; 
copy_block  "'c-K'c"; 
move_block  "'c-K'v"; 
hide_block  "'c-K'h"; 
delete_block  " ' c-K’y" ; 
read_block  "’c-K'r"; 
write_block  "’c-K'w"; 
end  '"c-K'd"; 
top_o£_£ile  "'c-Q'r"; 
end_of_£ile  "’c-Q'c"; 
left  " ' esc ' K " ; 
right  "'esc'M"; 
word_left  " ' c-A' " ; 
word_right  " ' c-F'"; 
beginning_of_line  "'esc'G"; 
end_o£_llne  "'esc'O"; 
find  " ' c-Q ' £ " ; 
replace  " ' c-Q 'a"; 
quit  "q" ; 
edit  "e" ; 
compile  "c"; 
options  "o"; 
run  "r"; 
save  "s"; 
escape  " ' esc ' 

/*  The  root  sentence  definition  follows  */ 

Root  tenter  menu  voice_console  cmdl  cmd2  cmd3  cmd4  cmd5 
cmd6  cmd7  cmd8  cmd9  cmdlO]  = 

( 1 ine_up, 

1 ine_down/ 
scroll_up, 
scroll_down, 
page_up, 
page_down, 
delete_l ine, 
delete _character, 
begin_block , 
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{SPEAK. INC) 


{********************************************************** 
Procedure  Speak  serves  as  an  interface  to  the  IBM  Voice 
Communications  Applications  Program  Interface  for  the  Text- 
to-Speech  (speech  synthesis)  function  set.  It  can  be 
included  in  any  Turbo  Pascal  program  in  which  the  user 

wishes  to  have  a  passage  of  text  spoken.  The  only  required 
lines  within  the  calling  program  are  a  type  declaration,  an 
include  statement  to  include  the  procedure,  and  the  call 
to  the  procedure.  Parameters  that  must  be  passed  to  the 
speak  procedure  are  the  name  of  a  string  containing  a 
sentence  of  up  to  240  ASCII  text  characters  that  ends  with 
a  sentence  terminator or  an  integer,  p, 

giving  the  baseline  pitch  (the  range  for  pitch  is  0  or 

between  50  and  100),  and  an  integer,  r,  which  sets  the 

speech  rate  (the  range  for  speech  rate,  r,  is  between  50 

and  250  ).  A  pitch  of  0  will  produce  a  whispering  voice 
while  other  values  not  between  50  and  200  will  default  to 
the  normal  pitch  rate  of  85.  Pitch  may  be  adjusted  at  any 
time  by  replacing  this  value  and  speach  will  remain  at  this 
same  pitch  until  another  value  is  input.  Resolution  of 
baseline  pitch  is  about  10  so  differences  such  as  103  and 
111  may  not  be  detectable.  Higher  numbers  produce  higher 
pitches.  If  a  value  outside  the  range  of  50  and  100  is  not 
used  with  the  speech  rate,  r,  then  the  default  is  to  the 
normal  rate  of  150  words  per  minute.  Again,  maximum 
resolution  is  about  10  words  per  minute  so  values  such  as 
123  and  127  may  not  be  detected.  Speech  rate  is  also 
adjustable  by  changing  the  value  passed  and  this  rate 
remains  in  effect  until  a  different  value  is  supplied. 
Higher  values  produce  faster  rates  of  speech. 

When  using  Turbo  Pascal,  the  compiler  option  ($v->  may  be 
used  to  relax  checking  of  the  length  of  the  buffer  passed 
to  the  speak  procedure.  That  is,  a  buffer  with  length  of 
80,  128,  etc  may  be  passed.  However,  it  is  still  required 

to  define  a  string  of  type  'longstr'  for  the  var  parameter 
used  in  the  speak  procedure. 


An  example  user  program  follows: 


I 


!> . 


var  reg 


: result; 

: integer ; 


rcb 


bid 

: integer ; 

cid 

:  integer; 

pb 

: plist; 

k 

: integer ; 

pitch 

: string! 3 1 ; 

rate 

:  str ing ( 3  3 ; 

setbuf 

: shortstr ; 

begin 


(record  type  to  call 
interrupt} 

(storage  for  the  resource 
control  block) 

(storage  for  the  base  id} 
(storage  for  partition  2 
connection  id} 

(the  parameter  block} 
(length  of  text} 

(voice  pitch  string} 
(voice  rate  string} 

(set  pitch  and  rate 
buffer } 


(setup  pitch,  p,  and  speech  rate,  r} 


if  p  in  ( 0, 50 . . 200  ] 
then  str(p, pitch) 
else  pitch :  =  ' 85 ' ; 


(convert  pitch  to  string} 
(default  to  normal  pitch} 


if  r  in  (50,2501 

then  str(r,rate)  (convert  rate  to  string} 

else  rate:=  '150';  (default  to  normal  rate} 

setbuf  :  =  '“(  +  '  (  '  +pitch+ '  p'  +*  [  +  '  [  '  +rate+  '  r  '  +~@; 

(setup  the  pitch  and  rate  buffer} 


(open  command  to  obtain  a  resource  control  block  and 
connection  ids} 


reg.ax:=$llll; 

reg .  dx : =$021f ; 
reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb) ; 
intr ( $14, reg) ; 
if  pb [ 0 ]  <>  0  then 
begin 

wr iteln ( ' An  error 
goto  99; 
end; 

rcb: =pb( 1 ] ; 

bid : =pb( 2  ]  ; 
cid : =pbf  4  )  ; 


(function  code  for  open 
command } 

(board  I/O  address} 
(parameter  block  segment} 
(parameter  block  offset} 
(call  interrupt  14} 

(zero  if  no  error} 

occurred  in  open.'); 


(save  resource  control 
block  } 

{save  base  id} 

{save  partition  2 
connection  id) 
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{claim  h/w  resources  for  the  rcb  using  claimhdw 
command} 


reg . ax : =$llla ; 

reg.dx: =bid; 
reg.es:=seg(pb) ; 
reg.bx:=ofs(pb) ; 
pb [ 2 ] : =$2602 ; 

pb[ 3 1 : =$0000 ; 
intr ( $14, reg ) ; 
if  pb t  0  3  <>  0  then 
begin 

writeln( 'An  error 
goto  99; 
end; 


{function  code  for 
claimhdw  command} 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{claim  port  2,  partition 
2,  spkr,  microphone} 

{no  base  interrupt} 

{call  interrupt  14} 

{zero  if  no  error} 

occurred  in  claim.'); 


{connect  devices  to  the  port  using  conndtop  command} 


reg . ax : =$1121; 

reg.dx : =bid; 
reg . es : =seg ( pb ) ; 
reg.bx:=ofs(pb) ; 
pb [ 2 ] : =2; 
pb [ 3 ] : =$0600 ; 


{function  code  for 
conndtop} 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{connect  to  port  2} 
{connect  microphone  and 
speaker } 

{call  interrupt  14} 

{zero  if  no  error} 


intr ( $14 , reg ) ;  {call  interrupt  14} 

if  pb[0]  <>  0  then  {zero  if  no  error} 

begin 

writeln( 'An  error  occurred  in  connect  devices.'); 
goto  99; 
end ; 

{load  function  set  into  a  port  and  connect  it  using 
the  connftop  command} 


reg .ax : =$lllf ; 

reg . dx : =bid ; 
reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb ) ; 
pb [ 1 1 : =cid; 

pb [ 2  3 : =2; 
pb [ 3 ] : =10 ; 


{function  code  for 
connftop  command} 

{need  base  id  in  dx} 
{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  the 
parameter  block} 

{connect  to  port  2} 
{connect  text -to-speech 
function} 


intr ( $14, reg ) ;  (call  interrupt  14} 

if  pb[0]  <>  0  then  {zero  if  no  error} 

begin 

writeln('An  error  occurred  in  connect 
function  .  '  ) ; 

goto  99; 
end; 

{the  initialize  text-to-speech  function  set  data 
structures } 

reg.ax:=$1113; 


reg.dx: =cid; 

reg.es: =seg ( pb ) ; 
reg.bx:=ofs(pb) ; 
pb [ 1 ] : =cid; 

intr ( $14, reg ) ; 
if  pb [ 0 ]  <>  0  then 
begin 

writeln( 'An  error  occurred  in  initialize  speech 
function.  '  ) ; 

goto  99; 
end; 

{the  text-to-speech  speak  command} 

{set  the  pitch  and  rate  by  outputting  setbuf} 


{function  code  for 
initialize  data 
structures } 

{need  connection  id  in 
dx} 

{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  parameter 
block  also} 

{call  interrupt  14} 

{zero  if  no  error} 


reg . ax : =$llle ; 

reg.dx:=cid; 

reg. es : =seg( pb) ; 
reg . bx : =of s ( pb ) ; 
pb[ 1 ] : =cld; 

pb { 2 1  :  =2 ; 

pbC3] :=ofs(setbuf)+l; 

pb [ 4 1 :=seg(setbuf); 
intr ( $14 , reg ) ; 


{function  code  for  speak 
command } 

{need  connection  id  in 
dx} 

{parameter  block  segment} 
{parameter  block  offset} 
{need  cid  in  parameter 
block  also} 

{32  bit  address  for 
buffer  setbuf} 

{setbuf  address  offset, 
offset  1  for  length} 
{setbuf  address  segment} 
{call  interrupt  14} 


{zero  if  no  error) 


l 


if  pbtOl  <>  0 
then 

begin 

wr iteln ( 'An  error 

function . ' 

goto  99; 
end; 

{say  the  text  line  that  was 

reg .ax : =$llle ; 

r eg . dx : =c id; 

reg . es : =seg ( pb ) ; 
reg . bx : =of s ( pb ) ; 
pb [ 1 ] : =c id ; 

pb [ 2 ] : =2 ; 

k : =length ( talk  ) ; 

talk [ k  +  1 1 : =  A  [ ; 
talk [ k  +  2 ]  :  = 
talk [ k  +  3 ] :  =  '  i  ' ; 

talk [  k  +  4 ] : =~@; 
pb[3] :=ofs(talk)+l; 


pb C  4 ] : =  seg ( talk ) ; 
intr ( $14 , reg ) ; 
if  pb [01  <>  0 
then 

begin 

writeln('An  error 
function 

goto  99; 
end; 
goto  fini; 

99:  wr iteln (' Return  Code  is 


occurred  in  speech 


passed  as  a  parameter) 

{function  code  for  speak 
command ) 

{need  connection  id  in 
dx } 

{parameter  block  segment) 
{parameter  block  offset) 
{need  cid  in  parameter 
block  also) 

{32  bit  address  for 
buffer  talk) 

{find  the  length  of  the 
buffer ) 

{put  in  an  ESC) 

{and  a  left  bracket) 

{and  an  i  to  create 
interrupt) 

{add  a  null  at  the  end) 
{use  the  buffer  passed  in 
talk,  offset  1  for 
length) 

{segment  for  talk) 

{call  interrupt  14} 

{zero  if  no  error) 


occurred  in  speech 
’  >; 


',pb[0]);  {tell  the  user 
what  code  was 
returned } 


F 
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irt. 


i 


(close  command  to  release  resources) 

fini:  {come  here  always  to 

release  resources} 

r eg . ax : =$1112;  {function  code  for  close} 

reg.dx:=bid;  {need  base  id  in  dx} 

reg . es : =seg ( pb ) ;  {parameter  block  segment} 

reg . bx : =of s ( pb ) ;  {parameter  block  offset} 

pb[l]:=rcb;  {resource  control  block 

to  release  resources} 

intr ( $14 , reg ) ;  {call  interrupt  14} 

if  pb I  0 ]  <>  0  then  {zero  if  no  error} 

begin 

writeln('An  error  occurred  in  close.'); 

wr iteln (' Return  Code  is  ' , pb [ 0  ] ) ;  {tell  the  user 

what  code  was 
returned } 

end ; 


end ; 


{procedure  speak} 


{SAY. PAS} 


(This  program  will  say  the  text  entered  as  parameters  on 
the  command  line.  Input  is  limited  only  to  127  total 
characters  (due  to  limitation  of  Turbo  Pascal).  To  use  the 
program,  enter  the  command  'say'  followed  by  the  text  you 
wish  spoken.  Remember  to  end  the  text  with  a  sentence 
terminator,  either  a  period(.),  question  mark(?),  or  an 
exclamation  point(!).  Examples: 

say  This  is  a  mighty  fine  computer! 

say  Do  you  want  to  delete  all  files? 

say  It  is  now  time  to  have  a  coffee  break. 

{ $  V- }  {compiler  directive  to 

relax 

length  of  strings} 

type  longstr  =  string[240];  (size  of  buffer  for  text 

input } 

word  =  string[80];  {size  of  buffer  for  a  word 

input } 

var  passage  : longstr;  {buffer  for  text  that  is  input) 
param  :word;  {buffer  for  word  that  is  input) 

numparam  : integer;  {number  of  parameters  (words)) 

i  : integer;  {an  index  for  words) 

{$1  b:speak.inc)  {interface  procedure  for 

speech ) 

begin 

fillchar (passage, 240, '  ');  {clear  the  buffer) 

numparam: =paramcount ;  {find  number  of  words  passed) 

for  i:=  1  to  numparam  do  {create  the  text  buffer) 
begin  {to  be  spoken) 

param: =paramstr ( i ) ;  {get  each  word  from  the  command 

line) 

passage : =passage+ '  ' +param;  {and  add  it  to  the  text 

buf  f er ) 

end;  {end  for  i:=l  to  numparam) 

i : =length ( passage ) ;  {find  the  text  length) 

if  not  (passage(i)  in  then 

passage : =passage+ ;  {default  to  period  if  not 

punctuated  5 

speak ( passage, 65, 170 ) ;  {speak  the  text  in  buffer, 

pitch  65,  rate  170} 

end  . 
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{  SAYTEXT . PAS } 


The  SAYTEXT  program  causes  the  text  in  the  file,  whose  name 
is  passed  as  a  parameter,  to  be  spoken.  The  file  should  be 
in  regular  ASCII  characters  similiar  to  this  passage 
following  all  rules  of  normal  punctuation.  The  length  of 
the  input  file  is  unlimited.  The  text  is  first  read  into  a 
linked  list  then  each  node  of  the  linked  list  is  spoken. 


Example : 


if  the  file  named  HELLO . DAT  contains  the  following  text: 

Hello  all!  It  is  so  nice  of  you  to  visit.  Will  you 
come  in  and  stay  for  awhile? 

then  to  have  the  passage  spoken,  enter  the  following 
command : 

saytext  hello.dat 

*********************************************************** 
program  saytext; 

{$V-}  {compiler  directive  to  relax  length  of  parameter 
strings  passed! 

type  longstr  =  string[240];  (length  of  text  string  to 

speak } 

filname  =  string(66];  {file  name  passed} 

buffer  =  array [ 1 . . 2 40 ]  of  char;  {temporary  buffer 

storage } 

{*******  RECORD  FOR  LINKED  LIST  NODE  ************ 

LlistNod  =  ~SNode; 

SNode  =  record 

txt:  longstr; 
next :  LlistNod; 
prior:  LlistNod; 

end ; 

********  RECORD  FOR  LINKED  LIST  HEADER  ************ 

Slist  =  "SHead; 

SHead  =  record 

length:  integer; 
first:  LlistNod; 

Last :  LI  istNod; 

end ; 


var 


data 

: filname; 

(buffer  to  hold  file  name 
that  is  passed} 

dataf  i  le 

: text ; 

(assigned  to  the  filename} 

i/3 

:  integer; 

(counter  for  nodes  and 
chars } 

LList 

:  Si  ist ; 

(the  head  node} 

node 

: LListnod; 

(pointer  to  keep  track  of 
current  node} 

Str 240 

: longstr ; 

(buffer  for  string} 

chin 

:  char ; 

(char  read  in} 

buf 

: buf  f er ; 

(used  to  manipulate  data} 

{ ********************************************************* } 
{*  function  to  test  for  existence  of  a  file  *} 


Function  Exist ( f i lename :  filname):  boolean; 
var  fil  :file; 


begin 

assign ( fil, filename ) ; 

{$1-} 

reset ( f il ) ; 

($1  +  ) 

exist:=  (IOresult  =  0) 
end; { function  exist} 

{********************************************************** 

*Node_Ptr ;  RETURNS  A  PTR  TO  CURRENT  NODE  OF  LINKED  LIST 
*********************************************************** 

Function  Node_Ptr ( pos :  integer):  LlistNod; 

Var 

i:  integer; 

nd :  LlistNod; 

Begin 

nd  :=  Lllst'1 .  first; 
for  i  :=  2  to  pos  do 
nd  :=  nd'.next; 

Node_Ptr  :=  nd; 

End; 


{********************************************************** 

*  CreateLst;  CREATES  HEADER  FOR  LINKED  LIST  FOR  TEXT  LINES* 
***********************************************************} 

Function  CreateLst:  Slist; 

Var 

thishead:  Slist; 

Begin 

new( thishead ) ; 
thishead" . length  :=  0; 
thishead" . f irst  :=  nil; 
thishead" . last  :=  nil; 

CreateLst  :=  thishead; 

End  ; 

{********************************************************** 

*  Make_Node; CREATES  NEW  NODE  FOR  LINKED  LIST  * 

***********************************************************} 

Function  Make_Node ( dat :  longstr;  prev,  nxt:  LlistNod): 
Ll istNod ; 

Var 

thisone:  LlistNod; 

Begin 

new( thisone ) ; 

thisone". txt  :=  Copy ( dat , 1, Length (dat )) ; 
thisone" . pr ior  :=  prev; 
thisone" . next  :=  nxt; 

Make_Node  :=  thisone; 

End; 

{********************************************************** 

*  APP_Ll 1st;  APPENDS  A  NODE  ONTO  LINKED  LIST  * 

**********************************************************} 
Procedure  App_Ll ist (dat :  longstr); 

Var 


thisone:  LlistNod; 


nil  then 


i. 


Begin 

if  Llist". first  = 
begin 

thisone  :=  Make_Node ( da t , ni 1 , ni 1 ) ; 

Llist". last  :=  thisone; 

Llist". first  :=  thisone; 
end 
else 
begin 

thisone  :=  Make_Node (dat , LI is t " . last , ni 1 ) ; 

LI ist" . last" . next  :=  thisone; 

Llist". last  :=  thisone; 
end; 

LI ist" . length  :=  Llist" . length  +  1; 

End ; 

{********************************************************** 

*  DelHere ;  DELETES  A  NODE  FROM  THE  TEXT  LINKED  LIST  AND  * 

*  RETURNS  THE  TEXT  STRING  FROM  THAT  NODE  * 

**********************************************************} 
Function  DelHere(pos:  integer):  longstr; 

Var 

temp:  LlistNod; 

Begin 

temp  : =  Llist" . first; 
if  pos  =  1  then 
begin 

Llist". first  :=  temp". next; 
if  Llist". first  <>  nil  then 
Llist" . f irst" . pr ior  :=  nil; 

end 

else 

begin 

temp  :=  Node_Ptr ( pos ) ; 
temp" . pr ior ". next  :=  temp". next; 
if  temp". next  =  nil  then 
Llist". last  :=  temp". prior 
e  lse 

temp". next" .prior  :=  temp". prior; 

end ; 

DelHere  :=  temp".txt; 

Dispose ( temp ) ; 

Llist" . length  :=  Ll ist" . length  -  1; 

End ; 


{********************************************************** 
*  DEALL_LIST;  * 

**********************************************************} 
Procedure  Deall_List; 

Var 

Tx  :  String[803; 

Begin 

while  LI ist" . length  >  0  do 
Tx  :=  DelHere(l); 

Dispose (Llist ) ; 

End ; 

($1  brspeak.inc}  {speech  interface  procedure} 

begin 

data : =paramstr ( 1 ) ;  (get  the  file  name  passed  as 


(read  char  in} 

{put  it  in  an  array} 
{increment  the  index} 


ta : =paramstr ( 1 ) ;  {get  the  file  name  passed  as 

a  parameter} 

if  exist(data)  then  {see  if  the  filename  is 

valid} 

begin  {do  this  if  filename  valid 

else  tell  user} 

asslgn(dataf ile, data ) ;  {assign  var  datafile  to  the 

string  name} 

reset (dataf ile ) ;  {get  the  file  ready  to  read} 

LList : =CreateLst;  {create  a  head  node} 

while  not  eof (dataf ile )  do 

begin  {begin  while  not  eof...} 

j:=l;  {initialize  char  counter} 

repeat 

read(dataf ile, chin) ;  {read  char  in} 

buf ( j ] : =chin;  {put  it  in  an  array} 

j:=j+l;  {increment  the  index} 

until  (chin  in  )  or  (j  >  240)  or 

eof (dataf ile ) ;  {stop  for  end  of  sentence  or 

buffer  full  or  end  of  file} 
Str240 : =copy (buf , 1, j-1 ) ;  {creates  a  complete 

sentence } 

APP_LL is t ( Str 2 4 0 ) ;  {add  it  to  the  array} 
end;  {while  not  eof (dataf ile  ) } 

close ( data f  i  le  ) ;  {remember  to  close  the  file} 

node : =LList' . f ir st ;  {set  pointer  to  first  node} 

for  i  :  =1  to  LList'' .  length  do 

begin  {for  i : = 1  to  LList...} 

speak ( node" . txt,  65, 175  ) ;  {speak  the  current  line} 
node : =node next ;  {move  the  pointer  up} 

end;  {for  i : = 1  to  LList...} 

Deall_List ;  {delete  all  the  nodes} 

end  {while  not  eof...} 
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APP_LL is t ( Str  2 4 0  ) ; 
end; 

close (datafile); 
node : =LList' .first; 


APPENDIX  D 


{REMIND. PAS} 

{ $R+ } 
t$C-} 

{$V-} 

PROGRAM  REMIND; 

{This  program  is  a  memory  resident  program  that  drives  the 
IBM  voice  applications  software  and  hardware  board.  When 
first  loaded,  it  allows  input  of  messages  to  be  spoken  and 
the  time  when  they  should  be  spoken.  Interface  to  the  board 
is  made  through  the  procedure  speak.  After  the  user  is 
prompted  for  input  (messages  and  times),  the  program 
terminates  and  becomes  memory  resident.  Access  to  the 
schedule  for  review/revision  or  to  terminate  the  program 
can  be  made  by  entering  ALT-F7.} 


{*****  CONSTANTS  ******************} 
const 

(the  next  field  is  needed  for  the  windo.inc  routines  } 


MaxMsg 

15;  {maximum  number  of  messages  to 
be  in  schedule} 

MaxWin 

- 

10;  {Max  number  of  windows  open  at 
one  time  } 

Esc 

#27;  {character  equivalent  of  Escape 

Key} 

Alt 

= 

08;  {Shift  bits  at  40:17  } 

Ctrl 

= 

04; 

Lef t_Shi ft 

= 

02; 

Rght_Shi f t 

= 

01; 

BIOSI8 

= 

8;  {Bios  Timer  interrupt} 

BIOSI16 

= 

$16;  {Bios  Keyboard  interrupt} 

BIOSI13 

= 

$13;  {Bios  Disk  interrupt} 

DOSI21 

= 

$21;  {DOS  service  router  interrupt} 

DOS  12  8 

= 

$28;  {DOS  Idle  interrupt} 

{ - TYPE  DECLARATIONS - } 

Type 

Regtype  =  record 

Ax, Bx, Cx, Dx, Bp, Si , Di , Ds , Es, Flags : integer 
end ; 

HalfRegtype  =  record 

Al ,  Ah,  Bl , Bh, Cl , Ch, Dl , Dh : byte 
end ; 

f i lename_type  =  string[64]; 
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■  ■ms 


SB 


Vector 


longstr 


=  record  {  Interrupt  Vector  type 

19,03  :integer  ; 
end  ; 

=  str ing [ 24  ] ; 

---TYPED  CONSTANTS - 


Const 


Our _HotKey 


byte  =  110; 


{  scan  code  for  ALT-F7} 


{******  scan  code  can  be  changed  to  make  ****************** 
{******  another  key  active  as  the  hot  key.  **************** 

{  This  table  marks  those  INT  21  functions  which  must 
be  passed  without  modification.  They  either  never  return, 
fetch  parameters  from  the  stack,  or  may  be  interrupted  by  a 
TSR  } 


Functab  : 

array [ 0 . . $6F] 

of  byte 

= 

(1/1/ 

1,1/ 

1,1, 1,1/ 

l/l/l/l. 

1, 

0, 

0,0, 

{0- 

C} 

0/0, 

0/0, 

0,0, 0,0, 

0, 0, 0, 0, 

0, 

0, 

0/0, 

0/0, 

0/0, 

0/0, 1,0, 

0,0, 0,0, 

o. 

0, 

0,1, 

{26 

,  2F } 

0/1/ 

1/1/ 

1/1/0, 0, 

0/0, 0,0, 

0/ 

0, 

0,0, 

{  31 

-35} 

0,0, 

0/0, 

0/0, 0,0, 

l/l/l/l/ 

1/ 

1, 

0,0, 

{48 

-  4D } 

1/1/ 

1,1/ 

0/ 1/0,0, 

1/0, 0,0, 

0/ 

1/ 

1,1/ 

{50 

-53, 

,55,58 

,5D 

-5F} 

1/1/ 

1/1/ 

l/l/l/l/ 

l/l/l/l/ 

1, 

1/ 

1/1); 

{60 

-62} 

Intr_Flags  : 

byte  = 

0; 

{Active  interr 

upts 

flags} 

INT13_on  = 

04; 

{Disk  i 

nterrupt 

is 

active } 

INT21_on  = 

08; 

{DOS  Ser 

vice  router 

is 

active } 

Status  : 

byte  = 

0; 

{Stat 

us  of  cur 

ren 

t 

TSR  ac 

tiv 

ity} 

Hotkey_on  = 

01; 

{Received  the  Hotkey} 

Inuse  = 

02; 

{TSR  is 

active } 

Foxs  = 

$FF; 

{workaround  for  i 

nli 

ne 

hex  FF} 

DosVersion  : 

byte  = 

0; 

{ Curr 

ent  Versi 

on 

of 

DOS} 

WaitCount  : 

byte  = 

0; 

{ Wa  i  t 

to  activate 

c 

ount } 

UserProgram 

:  intege 

r  = 

0;  {Offset  to  Use 

rs 

Pr 

ogram 

Cod 

e } 

OurDSeg:  integer  = 
OurSSeg:  integer  = 
DosDSeg:  integer  = 
DosSSeg:  integer  = 
DosSPtr:  integer  = 
DosSsiz:  integer  = 
UsrDSeg:  integer  = 
UsrSSeg:  integer  = 

UsrSPtr:  integer  = 

OurPSP  :  integer  = 


{Turbo  Data  Segment  Value  } 

{Turbo  Stack  Segment  Value  } 
{Dos  Datasegment  value  } 

{Dos  Stack  Segment  Value  } 

{Dos  Stack  pointer  value  } 

{Dos  Stack  size  in  words  I 
{Interrupted  Datasegment  Value} 
{Interrupted  Stack  Segment 
Value} 

{Interrupted  Stack  pointer 
Value  } 


{  The  following  constants  *MUST*  remain  In  the  IP:CS 
order.  StaySave  uses  them  as  JMP  targets} 

BIOS_INT8  :  vector  =  (IP:0;CS:0);  {BIOS  Timer  Interrupt 

Vector  } 

B I OS_I NT1 6  :  vector  =  (IP:0;CS:0);  {BIOS  Keyboard 

Interrupt  Vector  } 

BI0S_INT13  :  vector  =  (IP:0;CS:0);  {BIOS  Disk  Interrupt 

Vector  } 

DOS_INT21  :  vector  =  (IP:0;CS:0);  {DOS  Sevice  Interrupt 

Vector } 

DOS_I NT2 8  :  vector  =  (IP:0;CS:0);  {DOS  idle  Service 

interrupt  Vector} 

DOSStatl  :  vector  =  (IP:0;CS:0);  {Pointer  to  INDOS 

byte } 

DOSStat2  :  vector  =  (IP:0;CS:0);  {Pointer  to  CRITICAL 

byte } 

Version  :string[41  =  '4.15';  {  Current  Version  number  } 

{NEEDED  FOR  SETTIME} 

TIMER_HI:  INTEGER  =  0;  {used  to  set  timer} 

TIMER_LO :  INTEGER  =  0;  {used  to  set  timer} 


TIMER_ON  =  4;  {timer  mask  bit} 

FROM_TIMER  =  8;  {timer  mask  bit} 

TIMER_TIME  =  15;  {check  every  15  seconds} 

{*  CHANGE  TIMER_TIME  TO  THE  VALUE  (IN.  SECONDS)  TO  THE*****} 
{**  YOU  WANT  THE  PROGRAM  TO  CHECK  FOR  TIME  EXPIRATION  ****} 

{ - VARIABLES - } 

Var 

Regs  :  regtype; 

HalfRegs  :  halfregtype  absolute  regs; 

Keychr  :  char  ; 

Bytecount  :  integer; 

SavedPSP  :  integer;  {  Program  Segment  Prefix 

pointers  } 

Error  :  integer;  {  I/O  results  } 

Good  :  boolean;  {  I/O  results  switch  } 

Terminate  :  boolean;  {  Exit  stayRes  Flag  } 


OurDTA  :Array  (1..21  Of  integer;  {Local  DTA  pointer} 
SavedDTA  :Array  (1..2J  of  integer;  {Interrupted  DTA 

pointer } 

{NEEDED  FOR  REMIND  PROGRAM} 

HICLOCK:  INTEGER  ABSOLUTE  $40  :  $6E; 

LOCLOCK:  INTEGER  ABSOLUTE  $40  :  $6C; 

TICS  :  REAL; 


times  : array { 1 .. MaxMsg ]  of  string[5]; 
mesg  : array [ 1 .. MaxMsg ]  of  string[127] 

said  : array [ 1 .. MaxMsg ]  of  boolean; 
line  : str ing [ 127 ] ; 
i/j/k  :integer; 
chin  :char; 
punct  :char; 


{  WINDOW 
/ _ 


{$1  b : STAYWNDO .341} 


R  0  U  T  I 


£********************************************************} 
(SI  b:STAYSUBS. 420} 


PROCEDURE  SETTIME  NEEDED  TO  INITIALIZE 


Double 


Real  number  conversion 


function  double_to_real ( I , J  :  integer ): real ; 

var  temp  :  real; 

begin 

temp  ;=  I;  IF  temp  <  0  THEN  temp  :=  temp  +  65536.0 
temp  :=  temp  *  65536.0; 

IF  J  <  0  THEN  temp  :=  temp  +  65536.0  +  J  ELSE  temp 
temp  +  J; 

double  to  real  :=  temp; 


Real 


Double 


number  conversion 


PROCEDURE  Rea l_to_double ( R 

var  It,  Jt  :  real; 

begin 

It  :=  Int (R/65536 . 0 ) ; 
Jt  : =  R  -  It*65536 .0; 


IF  It  >  Maxlnt  then  I  :=  truncdt  -  6553b. 0)  ELSE 
I : =  trunc (It); 

IF  Jt  >  Maxlnt  THEN  J  :=  truncdt  -  65536.0)  ELSE 
J : =  trunc ( Jt ) ; 


END; 


Set 


Time 


Turn  timer  on 


PROCEDURE  Set_Timer ( the_time  :  integer); 
begin 

tics  :=  double_to_r ea 1 ( HiClock ,  LoClock); 
tics  :=  tics  +  the_t ime*18 . 2064819 34 ; 
real_to_double ( t ics ,  timer_hi,  timer_lo); 
Status  :=  status  or  Timer_On; 

END; 


PROCEDURE  BeBeep;  {makes  a  nice  beep,  beep  sound) 

VAR  N  :  byte;  {called  before  message  is  spoken) 

begin 

nosound ; 

FOR  N  :=  1  to  3  do 
begin 

sound(800);  delay(50); 
sound(400);  delay(50); 

END; 

nosound ; 

END; 

{ ******************************************************** } 
{CHANGETABLE  } 

{********************************************************} 
procedure  changetable;  {allows  user  to  change  schedule 

table ) 

label  10,out;  {label  10  writes  schedule  and 

begin  label  out  gets  out  of  changetable 

clrscr;  {clear  the  screen) 

10:for  i:=  1  to  j  do  {j  is  number  of  table  entries) 
begin 

Writeln(' Entry  # ' ,  i  :  2  ,  '  ' , times!!],'  ' , mesg [ i ) ) ; 

{write  table  out) 


end ; 

Wr iteln; 


{skip  a  line) 


Wr i te In (' Correct?  (Y/N)'); 


Wr iteln; 

Repeat 

Read ( kbd , ch i n  )  ; 


/N ) ' ) ;  { ask  i f  the 

entries  are  correct) 
{skip  a  line) 

{read  input  until  valid) 

{do  a  fast  read) 


Until  chin  in  ( ' y ' , ' Y ' , ' n ' , ' N ' ) ;  {the  valid  entries) 


If  chin  in  ['n',,N']  then  {take  action  if  table  is 

not  correct} 

begin 

writeln{ 'Enter  the  number  of  the  entry  to  change 
or  '  ) ; 

writeln( 'enter  FF : FF  in  an  entry' 's  time  field  to 
delete  the  entry  or'); 

if  j  <  MaxMsg  then  (if  number  of  entries  is  less} 
begin  {than  maximum  available} 

writeln( ' enter  ',j+l,'  to  add  a  new  entry  to 
the  table  or ' ) ; 

end ; 

wr i teln (' enter  0  to  reaccomplish  the  entire  table 
or  '  ) ; 

writeln( 'enter  99  to  return  with  no  changes.'); 
repeat  {see  what  the  user  wants} 

readln(i);  {get  input} 

if  (i  >  j  h-  1 )  and  (i  <>  99)  then 
writeln( ' Value  too  high.'); 

{make  sure  user  enters} 
if  i  <  0  then  wr i teln (' Value  too  low.'); 

{a  valid  input} 

until  i  in  [0..j+l,991;  {the  valid  entries} 
if  i  =  99  then  {user  doesn't  want  any} 

begin  {changes,  go  back  to 

relist} 

i:=l;  {reinitialize  i} 

clrscr;  {clear  the  screen} 

goto  10;  {go  back  to  relist  schedule} 

end ; 

if  i  =  0  then  goto  out;  {user  wants  to  rebuild, 

exit  with  i=0} 

if  i  >  j  then  j:=i;  {wants  to  add  an  entry, 

increase  table  size} 

clrscr;  {clear  the  screen} 

gotoxy ( 15, 10 ) ;  {set  the  cursor} 

Wr iteln ( ' Time  ',i,'?  (hh:mm)');  {get  new  entry  or 

change  the  old  one} 


gotoxy ( 15,12); 
Readln(times[i] ); 
gotoxy( 15,14); 

Wr i te In (' Message  ',i,'? 
gotoxy ( 15,16) ; 
Readln(mesg[ i I ) ; 
k : = length ( mesg [ i ] ) 

line: =mesg [ i ] ; 


{set  the  cursor} 

{get  the  time} 

{ask  the  user  for  the 
message } 

Punctuation  required.'); 
{go  to  end  of  line} 

{read  the  message} 

{check  to  make  sure 
punccuated } 

{change  to  string} 
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1 f  not  ( 1 lne [ k  ]  In  [  '  .  ' , 
begin 

gotoxy ( 15,20) 
writeln{ 'Punctuation 
r equ i r ed . ' ) ; 
delay ( 1500  ) ; 
gotoxy ( 15,20); 
wr iteln (  ' 
gotoxy( 15  +  k,  16  )  ; 
read  In ( punct ) ; 
mesg { i I : =mesg [ i ] 

end ; 

said [ i ] : =false; 

ClrScr ; 
goto  10; 

out : 
end ; 

end ; 


?',’!'])  then 
{tell  the  user  to  add 
punctuation} 

{set  the  cursor} 

or  ''!'') 

{delay  to  let  user  read} 
{reset  the  cursor} 

'  ); 

{reset  the  cursor  at  end} 
{get  punctuation} 
punct;  {and  add  it  to  the 

message } 

{haven't  said  this  yet} 
{clear  the  screen} 

{go  back,  print  the  table, 
and  see  if  its  correct  now} 
{label  to  exit  procedure} 

{procedure  changetable} 


Procedure  Getdata;  {initializes  table  on 

entry  or  if  user  wants  to 
reinitialize} 


labe 1  go,  10  ; 


begin 

go:  {label  to  start  getting  data} 

i:=l;  {initialize  variables} 

j:=l; 

clrscr;  {clear  the  screen} 

gotoxy(  10, 3 ) ;  {position  the  cursor} 

wr  i  te  In (' Enter  the  time  (hh:mm)  then  the  message  you  wish 
spoken . ' ) ; 

gotoxy ( 10,  4 ) ;  {position  the  cursor} 

wr i te In ( ' Time  range  is  00:00-23:59.  Message  is  a  maximum 
of  127'); 

gotoxy( 10, 5 ) ;  {position  the  cursor} 

wr  i  te In (' character s .  ',MaxMsg,'  different  messages  may 
be  entered . ' ) ; 


wr i te In ; 


{skip  a  ] . ne } 


=1  to  MaxMsg  do  {read  in  all  message 

entries} 

gin 

gotoxy ( 15,10);  {time  to  get  user  input} 

Writeln( 'Time  ',1,'?  (hh:mm)  Q  to  quit.'); 

gotoxy ( 15,12) ;  {set  the  cursor} 

Readln( times [ i 1 ) ;  {get  time  desired  for 

message } 

if  ( times t i ]=' q ' )  or  ( t imes [ i 1 = ' Q ' )  then 

{see  if  user  wants  to  quit} 

begin 

j:=i-l;  {user  wants  to  quit,  set 

up  number  of} 

clrscr;  {valid  entries  in  j  then 

call  change-} 

goto  10;  {table  procedure  to  list 

out  the  entries} 

end ; 

gotoxy ( 15, 14 ) ;  {get  the  desired  message 

now} 

Writeln( 'Message  * , i , *  ?  Punctuation  required.') 
gotoxy ( 15, 16 ) ;  {read  the  user's  input} 

Readln(mesg[ i 1 ) ; 

k : =length ( mesg ( i ] ) ;  {check  to  see  if 

punctuated } 

1 ine : =mesg ( i ] ;  {change  to  string} 

if  not  ( 1 ine [ k ]  in  then 

begin  {no  punctuation,  te 1 1  the 

user } 

gotoxy ( 15, 20 ) ;  {position  the  cursor} 

writeln{ 'Punctuation  or  ''!'') 

required .  '  ) ; 

delay ( 1500 ) ;  {give  user  time  to  read} 

gotoxy ( 15, 20 ) ;  {set  the  cursor} 

writeln( '  ' ) 

gotoxy(  15-t-k,  16  ) ;  {set  the  cursor  at  the  end} 
readln { punct ) ;  {get  the  punctuation} 

mesg ( i ] : =mesg [ i ) +punct ;  {and  add  it  to  the 

message } 

end ; 

sa id (  i  3  :  =  f a lse ;  {haven't  said  this  yet} 

ClrScr;  {clear  the  screen} 

j:=i;  {entered  max  entries,  so  j 

can  equa 1  i } 


id; 


changetable; 


if 


end; 


(procedure  changetable  lists  the 
entries  and  let  user  change) 
i=0  then  goto  go;  (if  i=0  on  return  from 

changetable,  user  wants  to 
reinitialize} 

(procedure  getdata) 


C - ) 

{  NOW  BEGINS  THE  REAL  PROGRAM  } 

t - ) 

( - ) 

(  CHECK  } 

{ - ) 


PROCEDURE  check 
type 
twostr 
var 

t imestr 
hrstr 
minstr 
buffer 


=  String[2); 

:  String [51; 

:  twostr; 

:  twostr; 

:  String [127]; 


Procedure  gettime(var  hrl,mnt : twostr ) ; 

(gets  the  time  in  hour  and  min) 
begin 

t ics : =double_to_real ( Hi Clock, LoClock )/18. 206481934; 

(current  time  ticks) 

str ( trunc ( t ics/3600 . 0  )  MOD  24,hrl);  (get  hours) 

str ( trunc ( t ics/60 )  MOD  60,  mnt ) ;  (get  minutes) 

end; ( procedure  gettime) 

($1  b:speak.inc>  (voice  interface  procedure) 


begin 

While  Keypressed  DO  read ( Kbd , KeyChr ) ;  (clear  any  waiting 

keys ) 

IF  (status  AND  timer_on)  =  timer_on  THEN  (If  our  timer  is 

t ick ing  . . ) 


begin 

IF  (status  AND  from_timer)  = 
begin 

status  :=  status  and  not 
gettime ( hrstr , minstr ) ; 

i f  ( hrstr [11  =  '  '  )  then 


from_timer  THEN  (and  the 
timer  finished  .  .  } 
(then  clear  the 
timer  request  } 
(timer_on  +  from_timer); 
(get  the  current 
time); 

hrstr [ 1 ]:  =  ’ 0  '  ;  [change 
blank  to  zero) 
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if  (minstrllJ  =  '  ')  then  minstr l 1 ] :  =  '  0  ' ;  {change 

blank  to  zero} 

t imestr : =hr str + ' : ' +minstr ;  (concatenate  hr 

and  min} 

for  i:  =  1  to  j  do  {check  all  entries 

for  a  time  match} 

begin 

if  ( timestr=times [ i } )  then  {if  time  matches  a 

time} 

begin 

if  not  said[i]  then  {did  we  tell  the 

user  already?} 

begin  {no,  tell  the 

user } 

bebeep;  {an  attention 

getter } 

speak ( mesg [ i ], 65, 180 ) ;  {say  the 

message } 

sa id [  i  1  : =tr ue ;  {set  a  flag  that 

we  said  the  msg} 

end ;  {if  not  said) 

end;  {if  (timestr...} 

end;  {for  i:=l  to  j...} 

set_timer ( t imer_time ) ;  {issue  another 

time  call} 


{user  must  have  entered  ALT-F7 } 

gin 

MkWin { 1, 1, 80, 2  5, br ight+cyan, black ,  3 ) ; 

{make  a  window} 

gotoxy ( 10, 12 ) ;  {set  the  cursor} 

writeln( 'Enter  R  to  review/revise  schedule  or  T 
to  terminate . ' ) ; 

repeat  {get  user  input} 

read ( kbd, chin ) ;  {do  fast  read} 

until  chin  in  [  '  r ' , ' R ' , ' t ' , ' T ' ] ;  {valid  inputs} 
if  chin  in  ( ’t ' , 'T' ] 

then  terminate : =true  {user  wants  to  cancel} 
else  {user  wants  to  review/revise  table} 

begin 

i :  =  1;  { initialize  i  } 

changetable;  {user  wants  the  entries} 

if  i=0  then  getdata;  {if  i=0  is  returned, 

then  user  wants} 

end;  {to  reinitialize  the  table} 

RmWin;  {remove  the  window} 

d;  {if  chin  in  ['t'...} 

{end  else} 

{procedure  check} 
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{ 

{ 

{ 


THE  ABOVE  ARE  THE  USER  INCLUDE  ROUTINES 


} 

} 

} 


t - } 

{  PROCESS  INTERRUPT  } 

{ - } 

{  PURPOSE: 

The  following  procedures  displace  standard 
interrupts. 


Do  not  put  Variables  or  Constants  in  this  Procedure. 
It  will  cause  registers  to  be  clobbered  during  the 
Interrupt  routine  when  Turbo  attempts  to  allocate  storage 
for  local  variables  or  parameters.} 

PROCEDURE  STAY_INT16;  {Keyboard  Interrupt  16  Service 

Routine } 

{If  anything  but  "Our_HotKey "  is  pressed,  the  key  is 

passed  to  the  standard  keyboard  service  routine.  B_U_T, 
when  Our  Hotkey  is  recognized,  a  hotkey  bit  is  set.} 
begin 

{$1  b : Stayil6 . 410 } 

End;  {STAY_INT16} 

PROCEDURE  STAY_INT13; 
begin 

{$1  b : Stayil3 . 410 } 

End;  {STAY_INT13} 

PROCEDURE  STAY_INT21; 
begin 

{$1  b:Stayi21. 410} 

End;  {STAY_INT21} 

PROCEDURE  Stay_INT8; 

{Activates  Stayres  during  pgm  execution} 
begin  {when  safe  to  do  so.} 

{$1  b:Clkl8.410} 

{$1  b: Stayi8 . 420} 

End ; { Stay_I nt 8 } 

PROCEDURE  Stay_INT28;  {Idle  Interrupt  28  Service  Routine} 
begin  {Invokes  Stayres  from  the  DOS  prompt} 

{$1  b : Stayi 28 . 410 }  {and  allows  background  activity  to  } 
End; {Stay_Int28 }  {continue} 


{BIOS  Disk  interrupt  Routine} 
{Sets  a  flag  while  disk  is  active} 


{DOS  interrupt  21  Service  Routine} 
{Sets  a  flag  while  INT  21  is  active} 


{Timer  Interrupt  8  Service  Routine} 
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PROCEDURE  StaySave;  {Prolog  to  Resident  Turbo  Code) 
begin 

{$1  b : StaySave .  420  } 

GetDTA( SavedDTAI 1 ] , SavedDTAt  2  ]  ) ;  {Save  callers  DTA 

address } 

GetPSP ( SavedPSP ) ;  {Save  callers  PSP 


SetPSP ( OurPSP ) ; 

SetDTA( Our DTA [ 1 ] , OurDTAE  2 ] ); 


{Save  callers  PSP 
Segment } 

{Set  our  PSP  Segment} 
{Set  our  DTA  address} 


NewCtlc[21  :=  CSeg; 

NewCtlcCl]  :=  Ofs(IRET); 

GetCtlC( SavedCtlc ) ;  SetCtlC ( NewCtlc ); {Get/Save  the  users 

Ctrl-C  vector} 


INT2  40n ; 


{Trap  Dos  Critical 
Errors } 


INVOKE  USER  PROCEDURE  HERE 


begin 

KeyChr  :=  #0; 
check ; 
end; 


{  Clear  any  residual  } 
{go  execute  the  program} 


{  END  USER  PROCEDURE  HERE 
{ - 


SetPSP ( SavedPSP ) ; 


{  Restore  Callers  PSP 
Segment } 


SetDTA( SavedDTAl 1 ] , SavedDTAt 2 ] ) ; {  Restore  the  users  DTA} 


Set CtlC( SavedCtlC) ; 


INT240ff;  {  Remove  Our  Critical 

Error  routine} 

If  (Terminate  =  true)  then  Stay_Xit;{  If  exit  key, 

restore  Int  Vectors  } 


{  Restore  the  users  Ctrl-C 
Vector } 
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WWW 


I - ! 

t$I  b:Stayrstr . 420}  {  RETURN  TO  CALLER  } 

{ - > 

{  END  OF  THE  STAYRSTR  ROUTINE  } 

{ - } 


End  ; { StaySa ve } 


{ - } 

{  MAIN  } 

{ - } 


{  The  main  program  installs  the  new  interrupt  routine  } 
{  and  makes  it  permanently  resident  as  the  keyboard  } 
{  interrupt.  The  old  keyboard  interrupt  Vector  is  } 
{  stored  in  Variables  ,  so  they  can  be  used  in  Far  } 
{  Calls.  } 


{ 

The  following 

dos  calls  are  used: 

} 

{ 

Function 

25  - 

Install  interrupt  address 

} 

{ 

input  al  =  int  number. 

} 

{ 

ds:dx  =  address  to  install 

} 

{ 

Function 

35  - 

get  interrupt  address 

} 

{ 

input  al  =  int  number 

i 

{ 

output  es:bx  =  address  in  interrupt 

} 

{ 

Function 

31  - 

terminate  and  stay  resident 

} 

{ 

input  dx  =  size  of  resident 

program 

} 

{ 

obtained  from  the  memory 

} 

{ 

allocation  block  at  [ Cs : 0  - 

$10  +  3] 

} 

{ 

Function 

49  - 

Free  Allocated  Memory 

} 

{ 

input  Es  =  Block  Segment  to 

free 

} 

{ - } 


beg  i  n 


{ **main** } 


OurDseg:=  Dseg;  {  Save  the  Data  Segment  Address  for 

Interrupts  } 

OurSseg:=  Sseg;  {  Save  our  Stack  Segment  for 

Interrupts  } 

GetPSP ( OurPSP  ) ;  {  Local  PSP  Segment  } 

Ge tDTA ( Our DTA [ 1 ] , Our  DTA [ 2 ] );  {  Record  our  DTA  address  } 

UserProgram: =Of s ( Staysave ) ;  {Set  target  of  call 

instruction} 

Regs. Ax  :=  $3000  ;  {Obtain  the  DOS  Version 

number } 


Intr(DosI21,Regs); 


DosVersion  :=  Halfregs.Al;  {  0=1+,  2=2.0+,  3=3.0+  } 


{Obtain  the  DOS  Indos 
Regs. Ax  :=  $3400; 


Intr ( DosI 21 
DosStatl .  IP 
DosStatl . CS 
DosStat2 . CS 
DosSSeg 


Regs  ) ; 

=  Regs.BX; 
=  Regs.ES; 
=  Regs.ES; 
=  Regs.ES; 


status 


1 ocat i on } 


Bytecount  :=  0;  {  Search  for  CMP  [critical  flag], 00 

instruction  } 

While  (Bytecount  <  $2000) 

{  then  Mov  SP,stackaddr  instruction  } 
and  ( Memw[ DosStat2 . CS : Bytecount ]  <>  $3E80) 
do  Bytecount  :=  Succ ( Bytecount ) ; 


If  Bytecount  =  $2000  then  begin  {  Couldn't  find 

critical  flag  addr  ) 

Wr iteln ( ' StayRes  incompat ibl ity  with  Operating 
System* ) ; 

Wr  iteln (' StayRes  will  not  install 
correctly. .Halting ' ) ; 

Halt;  end; 

{  Search  for  the  DOS  Critical  Status  Byte  address.  } 

{  Bytecount  contains  offset  from  DosStatl. CS  of  the  } 

{  CMP  [critical  flag], 00  } 

{  JNZ  ....  } 

{  Mov  SP, indos  stack  address  } 

If  Mem[ DosStat2 . CS : Bytecount +7 ]  =  $8C  {MOV  SP,xxxx) 
then  begin 

DosStat2.IP  :=  Memw[ DosStat 2 . CS : Bytecount +  2 ] ; 
DosSptr  :=  Memw[ DosStat 2 . CS : bytecount +  8 ] ; 

{INDOS  Stack  address) 

END 

else  begin 

Wr ite In (* Cannot  Find  Dos  Critical  byte  ... P lease 
Reboot .  '  ) ; 

Halt; 

end; 

Inline($FA);  {Disable  interrupts) 
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{  setup  Our  interrupt  service  Routines  ) 

Setup_Interr upt (BIOSI16,  BIOS_Intl6/  Of s ( Stay_INT16 ) ) ; 
{keyboard} 

Setup_Interrupt ( BIOSI8,  BIOS_Int8,  Of s ( Stay_INT8 ) ) ; 
{timer} 

Setup_Interrupt(BI0SI13/  BIOS_Intl3,  Of  s  (  Stay_INT13  )  ) ; 
{disk } 

Setup_Interrupt ( DOS I  21,  DOS_Int21,  Of s ( Stay_INT21 ) ) ; 
{DOSf unction } 

Setup_Interrupt(DOSI28/  DOS_Int28,  Of s ( Stay_INT28 ) ) ; 
{DOS  idle} 

Inline($FB);  {Re-enable  interrupts} 

{********************************************************  j 


{ - } 

{  INITIALIZE  YOUR  PROGRAM  HERE  } 

{ - } 


{********************************************************} 
{Initialize  Program  Here  since  we  don't  get  control  again.} 

Terminate  :=  false;  {Clear  the  program  exit  flags  } 

MkWin ( 1, 1, 80, 25, br ight +cyan, black ,  3 ) ;  {make  a  window} 

clrscr;  {clear  the  screen} 

getdata;  {set  up  initial  times  and  msgs} 


RmWin;  {remove  the  window} 

writeln;  {skip  a  line} 

wr iteln ( '****************♦******************************'  )• 
writeln('***  Remind  System  is  now  resident.  ***'); 

writeln('***  Enter  ALT-F7  to  review/revise  schedule  ***'); 
writeln('***  or  terminate  program.  ***'); 

wr iteln ( '***********************************************1 ) . 
set_timer ( t imer_t ime ) ;  {start  the  timer} 

{ - } 

{  END  OF  INITALIZE  PROGRAM  CODE  } 

{ - } 


{  Now  terminate  and  stay  resident.  The  following  Call 
utilizes  the  DOS  Terminate  &  Stay  Resident  function.  We 
get  the  amount  of  memory  by  fetching  the  memory  allocation 
paragraphs  from  the  Memory  Control  Block.  This  was  set  by 
Turbo  initialization  during  Int  21/function  4A  (shrink 
block),  calculated  from  the  minimum  and  mAximum  options 
menu.  The  MCB  sits  one  paragraph  above  the  PSP.} 

{  Pass  return  code  of  zero  } 

Regs. Ax  :=  $3100  ;  {  Terminate  and  Stay  Resident  } 

Regs.Dx  :=  MemW  ( Cseg-1 : 0003 ] +1  ;  {  Prog_Size  from 

Allocat ion  Blk } 

Intr  ( DosI 21, Regs ) ; 


end  . 


{  END  OF  RESIDENCY  CODE  } 


{********************************************************} 

{  STAYWNDO.  341  } 

t  "...but  I  dont  do  floors  !"  } 

{********************************************************} 

{  Kloned  and  Kludged  by  Lane  Ferris  } 

{  --  The  Hunters  Helper  --  } 

{  Original  Copyright  1984  by  Michael  A.  Covington  } 

{  Modifications  by  Lynn  Canning  9/25/85  } 

{  1)  Foreground  and  Background  colors  added.  } 

{  Monochrome  monitors  are  automatically  set  } 

{  to  white  on  black.  } 

{  2)  Multiple  borders  added.  } 

{  3)  TimeDelay  procedure  added.  } 

t  Requirements:  IBM  PC  or  close  compatible.  } 

{ - > 

{  To  make  a  window  on  the  screen,  call  the  procedure] 
{MkWin(xl,yl,x2,y2/FG/BG/BD); 

{  The  x  and  y  coordinates  define  the  window  placement  and 
are  the  same  as  the  Turbo  Pascal  Window  coordinates.  The 
border  parameters  (BD)  are  0  =  No  border  1  =  Single  line 

border  2  =  Double  line  border  3  =  Double  Top/Bottom 

Single  sides  } 

The  foreground  (FG)  and  background  (BG)  parameters  are  the 
same  values  as  the  corresponding  Turbo  Pascal  values.} 

{  The  maximum  number  of  windows  open  at  one  time  is  set  at 
five  see  MaxWin  =  5).  This  may  be  set  to  greater  values  if 
necessary. } 

{  After  the  window  is  made,  you  must  write  the  text  desired 
from  the  calling  program.  Note  that  the  usable  text  area 
is  actually  1  position  smaller  than  the  window  coordinates 
to  allow  for  the  border.  Hence,  a  window  defined  as 
1,1,80,25  would  actually  be  2,2,79,24  after  the  border  is 

created.  When  writing  to  the  window  in  your  calling 

program,  the  textcolor  and  backgr oundcolor  may  be  changed 
as  desired  by  using  the  standard  Turbo  Pascal  commands .  } 


{  To  return  to  the 
procedure  RmWin;  } 


previous  screen  or  window,  call 


{  The  TimeDelay  procedure  is  invoked  from  your  calling 
program.  It  is  similar  to  the  Turbo  Pascal  DELAY  except 
DELAY  is  based  on  clock  speed  whereas  TimeDelay  is  based  on 
the  actual  clock.  This  means  that  the  delay  will  be  the 
same  duration  on  all  systems  no  matter  what  the  clock 
speed.  The  procedure  could  be  used  for  an  error  condition 
as  follows:  ) 
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{  Mkwln  -  make  an  error  message  window 

{  Wrlteln  -  write  error  message  to  window 

{  TimeDelay(5)  -  leave  window  on  screen  5  seconds 

{  RmWin  -  remove  error  window 

{  continue  processing 

f - \ 


Const 

InitDone  :boolean  =  false  ;  {  Initialization  switch} 

On  =  True  ; 

Off  =  False  ; 

VideoEnable  =  $08;  {  Video  Signal  Enable  Bit  } 

Bright  =  8;  {  Bright  Text  bit} 

Mono  =7;  {  Monochrome  Mode} 


Type 

Imagetype  =  array  Cl.. 4000]  of  char; 


WinDimtype  =  record 

xl,yl,x2,y2:  integer 
end ; 


Screen  Image 
in  the  heap} 


Screens  =  record  {  Save  Screen  Information} 

Image:  Imagetype;  {  Saved  screen  Image  } 
Dim:  WinDimtype;  {  Saved  Window 

Dimensions  } 

x,y:  integer;!  Saved  cursor  position  } 

end ; 


Var 

Win:  {  Global  variable  package  } 

record 

Dim:  WinDimtype;  {  Current  Window  Dimensions  } 

Depth:  integer; 

{  MaxWin  should  be  included  in  your  program  } 

{  and  it  should  be  the  number  of  windows 
saved  at  one  time  } 

{  It  should  be  in  the  const  section  of  your  program  } 
Stack:  array C 1 .. MaxWin ]  of  'Screens; 

end ; 

Crtmode  :byte  absolute  $0040:$0049; 

{Crt  Mode,Mono, Color , B&W. . } 
Crtwidth  :byte  absolute  $0040:$004A; 

{Crt  Mode  Width,  40:80  ..  } 
:Imagetype  absolute  $B000:$0000; 

{Monochrome  Adapter  Memory} 


Monobu f  f er 


Colorbuffer  rlmagetype  absolute  $B800:$0000; 

{Color  Adapter  Memory  } 

CrtAdapter  :integer  absolute  $0040:$0063; 

{  Current  Display  Adapter  } 
VideoMode  :byte  absolute  $0040:$0065; 

{  Video  Port  Mode  byte  } 

TurboCrtMode :  byte  absolute  Dseg:6; 

(Turbo's  Crt  Mode  byte  } 

Video_Buf£er : integer ;  {  Record  the  current  Video} 


Delta , 

x , y  : integer ; 

{ - } 

{  Delay  for  X  seconds  } 

{ - } 

procedure  TimeDelay  (hold  :  integer); 
type 

RegRec  =  {  The  data  to  pass  to  DOS  } 


record 

AX,  BX,  CX,  DX,  BP,  SI,  DI,  DS,  ES ,  Flags  :  Integer; 

end ; 

var 

regs : regrec; 

ah,  al,  ch,  cl,  dh:byte; 

sec  :string[2]; 

result,  seen,  error,  secn2,  diff  ‘.integer; 

begin 

ah  :=  $2c; 
with  regs  do 

ax  :=  ah  shl  8  +  al; 
intr ( $21, regs ) ; 

with  regs  do 

str(dx  shr  8:2,  sec);  {Get  seconds  } 

{with  leading  null} 

if  (sec(l]  =  '  ')  then 
seed]  :=  'O'; 

val(sec,  seen,  error);  {Conver  seconds  to  integer} 

repeat  {  stay  in  this  loop  until  the  time} 

ah  :=  $2c;  {  has  expired  } 

with  regs  do 

ax  :=  ah  shl  8  +  al; 

intr ( $21, regs ) ;  {Get  current  time-of-day} 

with  regs  do  {Normalize  to  Char} 

str(dx  shr  8:2,  sec); 
i f  ( sec [ 1  ]  =  '  ' )  then 

sec ( 1 ] : =  'O'; 


{Get  Time-Of-Day  from  DOS} 
{Will  give  back  Ch:hours  } 
{  Cl : minutes , Dh : seconds  } 
{Dl:hundreds  } 


val(sec,  seen 2 ,  error);  {Convert  seconds  to  Integer) 
diff  :=  secn2  -  seen;  {Number  o£  elapsed  seconds) 

if  diff  <  0  then  {  we  just  went  over  the  minute  ) 

diff  :=  diff  +  60;  {  so  add  60  seconds  } 

until  diff  >  hold;  {  has  our  time  expired  yet  } 

d;  {  procedure  TimeDelay  } 


Get  Absolute  postion  of  Cursor  into  parameters  x,y  } 


Procedure  Get_Abs_Cur sor  (var  x,y  : integer ) ; 

Var 

Active_Page  :  byte  absolute  $0040:$0062; 

{  Current  Video  Page  Index) 

Crt_Pages  :  array[0..7)  of  integer  absolute  $0040:$0050  ; 


Begin 


=  Crt_Pages [ act ive_page ] ;  {Get  Cursor  Position  ) 
=  Hi(>)+1;  {  Y  get  Row) 

=  Lo(X)+l;  {  X  gets  Col  position) 


Turn  the  Video  On/Off  to  avoid  Read/Write  snow 


Procedure  Video  ( Switch : boolean ) ; 

Begin 

If  (Switch  =  Off)  then 

Por t [ CrtAdapter +4 1  :=  (VideoMode  -  VideoEnable) 

else  Port [CrtAdapter+4 ]  :=  (VideoMode  or 

VideoEnable ) ; 

End ; 

{ - ) 

{  InitWin  Saves  the  Current  (whole)  Screen  } 

{ - ) 

Procedure  InitWin; 

{  Records  Initial  Window  Dimensions  ) 

Begin 

with  Win. Dim  do 

begin  xl:=l;  yl:=l;  x2 : =crtwidth;  y2:=25  end; 

Win . Depth : =0  ; 

InitDone  :=  True  ;  {  Show  initialization  Done  } 

end ; 

{ - ) 

{  BoxWin  Draws  a  Box  around  the  current  Window  } 

{ - ) 

procedure  BoxWi n ( xl ,  yl , x2 ,  y2 ,  BD,  FG,  BG  :integer); 


{Draws  a  box,  fills  it  with  blanks,  and  makes  it  the 
current  Window.  Dimensions  given  are  for  the  box;  actual 
Window  is  one  unit  smaller  in  each  direction.  } 
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var 


I, 

TB, SID, TLC, TRC, BLC, BRC 


: integer ; 


1 


begin 

if  Crtmode  =  Mono  then  begin 
FG  :=  7; 

BG  :=  0; 
end ; 

Window(xl,yl/x2,y2); 
TextColor ( FG )  ; 

Text Back ground ( BG ) ; 

Case  BD  of 

0:; 

1 : begin 


{Make  the  Window) 

{Set  the  colors) 

{Make  Border  characters) 

{No  border  option) 

{Single  line  border  option) 


TB 

=  196; 

{Top  Border) 

SID 

=  179; 

{Side  Border) 

TLC 

=  218; 

{Top  Left  Corner) 

TRC 

=  191; 

{Top  Right  Corner) 

BLC 

=  192; 

{Bottom  Left  Corner) 

BRC 

=  217; 

{Bottom  Right  Corner) 

end; 

2 :  begir 

i 

{Double  line  border  option) 

TB 

=  205; 

SID 

=  186; 

TLC 

=  201; 

TRC 

:=  187; 

BLC 

=  200; 

BRC 

:=  188; 

end ; 

3  :  begir 

{Double 

Top/Bottom  with  single  sides) 

TB 

=  205; 

{"deary  and  dont  spare  the  lace") 

SID 

=  179; 

TLC 

=  213; 

TRC 

:=  184; 

BLC 

=  212; 

BRC 

:=  190; 

end ; 

End ; { Case ) 

IF  BD  >  0  then  begin 
{  Top  ) 

gotoxy ( 1, 1 ) ; 

Wr i te (  chr  ( TLC )  ) ; 

For  I:=2  to  x2-xl  do 
Wr  i  te (  chr ( TB )  )  ; 

Wr  i  te (  chr ( TRC )  ) ; 

{  Sides  ) 

for  I : =  2  to  y2-yl  do  begin 
gotoxy ( 1,1); 
wr  i  te (  chr (SID)  ) ; 
gotoxy ( x 2 -xl  +  1 , I  )  ; 

wr  i  te (  chr(SID)  )  ; 
end ; 


{  User  want  a  border?  } 

{  Window  Origin  ) 

(  Top  Left  Corner  } 

{  Top  Bar  } 

{  Top  Right  Corner  } 


{  Left  Side  Bar 


{  Right  Side  Bar 
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{  Bottom  } 

gotoxy( l,y2-yl  +  l ) ;  {  Bottom  Left  Corner  } 

wr ite (  chr(BLC)  ); 

for  I : =  2  to  x2-xl  do  {  Bottom  Bar  } 

write(  chr(TB)  ); 

{  Make  it  the  current  Window  } 

Window(xl+l,yl+l,x2-l,y2-l) ; 

write(  chr(BRC)  );  {  Bottom  Right  Corner  } 

end;  {If  BD  >  0}; 

gotoxy ( 1,1)  ; 

TextColor(  FG)  ;  {  Take  Low  nibble  0..15 

TextBackground  ( BG ) ;  {  Take  High  nibble  0..9 

ClrScr ; 
end ; 

{ - 

{  MkWin  Make  a  Window 

{ - 

procedure  Mk Wi n ( xl , yl , x2 , y2 ,  FG,  BG,  BD  :integer); 

{  Create  a  removable  Window  } 

begin 

If  (InitDone  =  false)  then  {  Initialize  if  not  done  yet  } 
InitWin; 

TurboCrtMode  :=  CrtMode;  {Set  Textmode  w/o  ClrScr } 

If  CrtMode  =  7  then  Video_Buffer  :=  SB000  {Set  Ptr  to 

Monobuffer } 

else  Video_Buffer  $B800;  {or  Color  Buffer  } 


with  win  do  Depth : =Depth+l ;  {  Increment  Stack  pointer  } 

if  Win. Depths  max Win  then 
beg  i  n 

writeln!*G  Windows  nested  too  deep  '); 
halt 
end ; 


i  Save  contents  of  screen  } 

1 - } 

With  Win  do 
Beg  i  n 

New( Stack ( Depth ]) ;  (  Allocate  Current  Screen  to  Heap  } 

Video (  Off); 

If  CrtMode  =  7  then 

S tack [ De pth 1 ~ . I  mage  :=  monobuffer  {  set  pointer  to  it  } 
else 

Stack! Depth]'. I  mage  :=  colorbuffer  ; 

Video!  On); 


{  Save  Screen  Dimentions} 


With  Win  do 
Begin 

Stack [ Depth l". Dim  :=  Dim; 

Stack [ Win . Depth l". x  :=  wherex; (  Save  Cursor  Position} 
Stack [ Win . Depth ] ~ . y  :=  wherey; 

End  ; 

{  Validate  the  Window  Placement} 
If  (X2  >  80)  then  {  If  off  right  of  screen  } 

begin 

Delta  :=  ( X 2  -  80);  {  Overflow  off  right  margin} 

If  XI  >  Delta  then 

XI  :=  XI  -  Delta  ;  {  Move  Left  window  edge  } 

X2  :=  X2  -  Delta  ;  {Move  Right  edge  on  80  } 

end ; 

If  ( Y2  >  25)  then  {  If  off  bottom  screen  } 

begin 

Delta  :=  Y2  -  25;  {  Overflow  off  right  margin  } 

If  Y 1  >  Delta  then 

Y1  :=  Y1  -  Delta  ;  {  Move  Top  edge  up} 

Y2  :=  Y2  -  Delta  ;  {  Move  Bottom  24  } 

end ; 

{  Create  the  New  Window  } 

BoxWin(xl,yl,x2,y2,BD,FG, BG) ; 

If  BD  >0  then  begin  {Shrink  window  within  borders} 

Win. Dim. xl  :=  xl+1; 

Win. Dim. yl  :=  yl  +  1;  {  Allow  for  margins  } 


Win. Dim. x2  :=  x2-I; 

Win. Dim. y2  :=  y2-l; 
end ; 

end ; 

{ - } 

{  Remove  Window  } 

{ - } 


{  Remove  the  most  recently  created  removable  Window  } 

{  Restore  screen  contents.  Window  Dimensions,  and  } 

{  position  of  cursor.  } 

Procedure  RmWin; 

Var 

Tempbyte  :  byte; 

Begin 

Video ( Of  f  ) ; 

With  Win  do 

Begin  {  Restore  next  Screen  } 

If  crtmode  =  7  then 

monobuffer  :=  Stack [ Depth ] ~ . Image 

else 

colorbuffer  :=  Stack [ Depth ]~. Image; 

Dispose ( Stack [ Depth  ]) ;  {  Remove  Screen  from  Heap  } 

end ; 


video ( On ) ; 

With  Win  do  {  Re-instate  the  Sub-Window  } 

Begin  {  Position  the  old  cursor  } 

Dim  :=  Stack [ Depth ] ~ . Dim; 

Window (Dim. xl/Dim.yl/Dim.x2/Dim.y2); 
gotoxy ( Stack C  Depth ] A . x, Stack [ Depth ] ~ . y ) ; 
end ; 

Get_Abs_Cursor (x,y )  ;  {New  Cursor  Position  } 

Tempbyte  :=  {  Get  old  Cursor  attributes} 

Mem[  Video_Buf fer : ( (x-1  +  (y-1)  *  80  )  *  2)+l  ) 

TextColor(  Tempbyte  And  $0F  );{  Take  Low  nibble  0..15 
TextBackgr ound  (  Tempbyte  Div  16);  {  Take  High  nibble 

0  .  .  9  } 

Depth  :=  Depth  -  1 
end  ; 

end ; 

{ - } 


I 


I 
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{********************************************************} 

{  STAYXIT  .  420  } 

{********************************************************} 

{ - } 

{Stay_Xit  Check  Terminate  Keys  } 

{  Clean  up  the  Program  ,Free  the  Environment  block,  the 
program  segment  memory  and  return  to  Dos.  Programs  using 
this  routine  ,must  be  the  last  program  in  memory,  else  ,a 
hole  will  be  left  causing  Dos  to  take  off  for  Peoria.} 

{ - } 

Procedure  Stay_Xit; 

{This  code  reinstates  those  interrupts  that  will  not  be 
restored  by  DOS.  Interrupts  22,23,24  (hex)  are  restored 
from  the  Current  PSP  during  termination.} 

VAR 

PSPvector22:  vector  absolute  Cseg:$0A; 

PSPvector23:  vector  absolute  Cseg:$0E; 

PSPvector24:  vector  absolute  Cseg:$12; 


DOSvector  2  2 : 
DOSvector 23  : 
DOSvector 24  : 


vector  absolute  0:$88; 
vector  absolute  0:$8C; 
vector  absolute  0:$90; 


Begin  {  Block  } 
wr iteln; 

Writeln  ('Remind  program  Terminated')  ; 
WR ITELN; 

WRITELN  ('Enter  <CR>  to  continue'); 


Inline ( $FA) ; 


{Disable  interrupts} 


{  Restore  Disk  Interrupt  Service  Routine  } 


Regs. Ax  :=  $2500  +  BI0SI13; 

Regs.Ds  :=  BI0S_INT13 . CS; 

Regs.Dx  :=  BIOS_INT13 . IP; 

Intr  ($21, Regs); 

{  Restore  Keyboard  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  BI0SI16; 

Regs.Ds  :=  B I OS_I NT 16 . CS ; 

Regs.Dx  :=  BIOS_INT16 . IP; 

Intr  ($21, Regs); 


{  Restore  Timer  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  BIOSI8; 

Regs.Ds  :=  BI0S_INT8 .CS; 

Regs.Dx  :=  B I 0S_I NT8 .IP; 

I ntr  ( $  2 1 , Regs ) ; 
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£  Restore  DOS  21  Interrupt  Service  Routine  } 


Regs. Ax  :=  $2500  +  DOSI21; 

Regs.Ds  :=  DOS_INT21 . CS; 

Regs.Dx  :=  DOS_INT21 . IP; 

Intr  ($21, Regs); 

{  Restore  DOS  28  Interrupt  Service  Routine  } 

Regs. Ax  :=  $2500  +  DOSI28; 

Regs.Ds  :=  DOS_INT28 .CS; 

Regs.Dx  :=  DOS_INT28 . IP; 

Intr  ($21, Regs); 

{  Move  Interrupt  Vectors  22,23,24  to  our  PSP  from  where 
DOS  will  restore  } 

PSPvector22  :=  DOSvector22;  {  Terminate  vector  } 

PSPvector23  :=  DOSvector23;  {  Cntrl-C  vector  } 

PSPvector24  :=  DOSvector24;  {  Critical  vector  } 

Inline($FB);  {Re-enable  interrupts} 


Regs. Ax  :=  $49  shl  8  +  0  ; 
Regs.Es  :=  MemWCCseg : $2C] ; 
MsDos(  Regs  )  ; 


{  Free  Allocated  Block 
function } 

{  Free  environment 
block  } 


Regs. Ax  :=  $49  shl  8+0;  {  Free  Allocated  Block 

f unct i on } 

Regs.Es  :=  Cseg  ;  {  Free  Program} 

MsDos (  Regs  )  ; 

End  {  StayXi t  }  ; 


{**************^**************************************»r***} 

{  STAYSUBS  .  420  } 


{ 


} 


SETUP 


INTERRUPT 


Msg  #  *48  Dated  07-07-86  16:54:36 

From:  NEIL  RUBENKING 

To:  LANE  FERRIS 

Re:  STAY,  WON'T  YOU? 


Lane, 


Here's  what  I  did: 


} 


:byte;  VAR  IntVec 


PROCEDURE  Setup_Interrupt ( IntNo 
:vector;  offset  :integer); 

BEGIN 

Regs. Ax  :=  $3500  +  IntNo; 

Intr ( DosI 21, Regs ) ;  {get  the  address  of  interrupt  } 

IntVec. IP  :=  Regs.BX;  {  Location  of  Interrupt  Ip  } 
IntVec. CS  :=  Regs.Es;  {  Location  of  Interrupt  Cs  } 


Regs. Ax  :=  $2500  +  IntNo;  {  set  the  interrupt  to  point 

to  our  procedure} 

Regs.Ds  :=  Cseg; 

Regs.Dx  :=  Offset; 

Intr  ( DosI 21, Regs ) ; 

END; 

(********c  0  M  M  E  N  T  ************* 

{in  the  main  part  of  the  program} 

Setup_Interrupt (BIOSI16,  BIOS_Intl6,  Of s ( Stay_INT16 ) ) ; 
{keyboard } 

Setup_Interrupt ( BIOSI10,  BIOS_IntlO,  Of s ( Stay_INT10 ) ) ; 
{video} 

Setup_Interrupt ( BI OSI 8 ,  BIOS_Int8,  Of s ( Stay_INT8 ) ) ; 

{timer } 

Setup_Interr upt (BIOSI13,  BIOS_Intl3,  Of s ( Stay_INT13 ) ) ; 

{di3k } 

Setup_Interrupt ( DOSI 21,  DOS_Int21,  Of s ( Stay_INT21 ) ) ; 

{ DOSf unct ion} 

Setup_I nter rupt ( DOSI 28 ,  DOS_Int28,  Of s ( Stay_INT28 ) ) ; 

{DOS  idle} 

******c  o  M  M  E  N  T  *******************) 
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S  E  T 


D  T  A 


Procedure  SetDTA(var  segment,  offset  :  integer  ); 

BEGIN 

regs.ax  :=  $1A00;{  Function  used  to  get  current  DTA 

address  } 

regs.Ds  :=  segment;  {  Segment  of  DTA  returned  by 

DOS  } 

regs.Dx  :=  offset;  {  Offset  of  DTA  returned  } 

MSDos(  regs  );  {  Execute  MSDos  function  request  } 


G  E  T 


DTA 


Procedure  GetDTA(var  segment,  offset  :  integer  ); 

BEGIN 

regs.ax  :=  $2F00;  {  Function  used  to  get  current 

DTA  address  } 

MSDos(  regs  );  {  Execute  MSDos  function 

request  } 

segment  :=  regs.ES;  {  Segment  of  DTA  returned  by 

DOS  } 

offset  :=  regs.Bx;  {  Offset  of  DTA  returned  } 


SET 


PSP 


Procedure  SetPSP(var  segment  :  integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its 

standard  stack  when  the  PSP  get/set  functions  are  issued  at 
the  DOS  prompt.  The  following  checks  are  made,  forcing  DOS 
to  use  the  "critical”  stack  when  the  TSR  enters  at  the 
INDOS  level.} 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  set  the  Dos  Critical  Flag} 

If  MemIDosStatl.CS :DosStatl. IP]  <>  0  then 
Mem[ DosStat2 .CS : DosStat2 . IP  1  :=  $FF; 
regs.ax  :=  $5000;  {  Function  to  set  current  PSP  address  } 
regs.bx  :=  segment;  {  Segment  of  PSP  to  be  used  by  DOS  } 
MSDos(  regs  );  {  Execute  MSDos  function  request  } 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  clear  the  Dos  Critical  Flag  } 
If  Mem[ DosStatl . CS : DosStatl . IP ]  <>  0  then 
Mem[ DosStat2 . CS : DosStat2 . IP ]  :=  $00; 


v»v 


G  E  T 


PSP 


Procedure  GetPSP(var  segment  :  integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its 

standard  stack  when  the  PSP  get/set  functions  are  issued  at 
the  DOS  prompt.  The  following  checks  are  made,  forcing  DOS 
to  use  the  "critical"  stack  when  the  TSR  enters  at  the 
INDOS  level  .  } 

{If  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {  then  set  the  Dos  Critical  Flag} 
If  Mem[ DosStatl . CS : DosStatl . IP ]  <>  0  then 
Mem[DosStat2.CS:DosStat2.IP]  :=  $FF ; 

regs.ax  :=  $5100; {Function  to  get  current  PSP  address  } 
MSDos{  regs  );  {  Execute  MSDos  function  request  } 

segment  :=  regs.Bx;  {  Segment  of  PSP  returned  by  DOS  } 

{IF  DOS  Version  less  then  3.0  and  INDOS  set  } 

If  DosVersion  <  3  then  {then  clear  the  Dos  Critical  Flag  } 
If  Mem[ DosStatl . CS : DosStatl . IP  1  <>  0  then 
Mem[DosStat2.CS:DosStat2.IP]  :=  $00; 


Control  C  (break) 


Arrayparam  =  array  [1..2]  of  integer; 
Const 

SavedCtlC:  arrayparam  =  (0,0); 

NewCtlC  :  arrayparam  =  (0,0); 

Procedure  GetCtlC(Var  SavedCtlC:arrayparam) ; 


Begin  { 

With  Regs  Do 
Begin 
AX  :  =  $  3  5  2  3 ; 

MsDos ( Regs ) ; 
SavedCtlCt 1 ) : =BX; 
SavedCt 1C ( 2 ] : =ES; 


{Record  the  Current  Ctrl-C  Vector} 


Control 


Procedure  SetCtlC(Var  CtlCptr :arrayparam) ; 

Begin  {Set  the  New  Ctrl-C  Vector} 

With  Regs  Do 
Begin 
AX:=$2523; 

DS : =Ct lCptr [21; 

DX : =Ct lCptr [II; 

MsDos ( Regs ) ; 

End ; 

End  ; 


{ - } 

{  Keyin  :  ReadKeaboard  } 

( - } 

Function  Keyin:  char;  {  Get  a  key  from  the  Keyboard  } 

Var  Ch  :  char;  {  If  extended  key,  fold  above  127} 

Begin  { - } 


Repeat  until  Keypressed; 

Read ( Kbd , Ch ) ; 

if  (Ch  =  Esc)  and  KeyPressed  then 
Begin 

Read ( Kbd ,Ch) ; 

Ch  :=  Char ( Ord ( Ch )  +  127); 

End; 

Keyin  :=  Ch ; 

End;  (Keyin) 


{ - j 

(Beep  :SoundtheHorn  } 

{ - } 

Procedure  Beep(N  :integer);  { - } 

Begin  {  This  routine  sounds  a  tone  of  frequency  } 

Sound(n);  {  N  for  approximately  100  ms  } 

Delay ( 100 ) ;  { - } 


Sound ( n  d i v  2  ) ; 
Delay ( 100 ) ; 
Nosound ; 

End  (Beep)  ; 


{ - } 

{  INTERRUPT  24  i 

{ - } 


{  Version  2.0,  1/28/86 
Bela  Lubkin 
CompuServe  76703,3015 

Apologetically  mangled  by  Lane  Ferris 


For  MS-DOS  version  2.0  or  greater.  Turbo  Pascal  1.0  or 
greater . 

Thanks  to  Marshall  Brain  for  the  original  idea  for  these 
routines.  Thanks  to  John  Cooper  for  pointing  out  a  small 


flaw  in  the  code.  These  routines  provide  a  method  for 


Turbo  Pascal  programs  to  trap  MS-DOS  interrupt  24  (hex). 
INT  24h  is  called  by  DOS  when  a  'critical  error'  occurs, 
and  it  normally  prints  the  familiar  "Abort,  Retry, 
Ignore?"  message. 

With  the  INT  24h  handler  installed,  errors  of  this  type 
will  be  passed  on  to  Turbo  Pascal  as  an  error.  If  I/O 
checking  is  on,  this  will  cause  a  program  crash.  If  I/O 
checking  is  off,  IOResult  will  return  an  error  code.  The 


global  variable  INT24Err  will  be  true  if  an  INT  24h  error 
has  occurred.  The  variable  INT24ErrorCode  will  contain  the 
INT  24h  error  code  as  given  by  DOS.  These  errors  can  be 

found  in  the  DOS  Technical  Reference  Manual. 

It  is  intended  that  INT24Result  be  used  in  place  of 

IOResult.  Calling  INT24Result  clears  IOResult.  The  simple 

way  to  use  INT24Result  is  just  to  check  that  it  returns 
zero,  and  if  not,  handle  all  errors  the  same.  The  more 
complicated  way  is  to  interpret  the  code.  The  integer 

returned  by  INT24Result  can  be  looked  at  as  two  bytes.  By 

assigning  INT24Result  to  a  variable,  you  can  then  examine 
the  two  bytes:  ( Hi ( <var iable> ) -1 )  will  give  the  DOS 

critical  error  code,  or  (<variable>  And  $FF00)  will  return 
an  Integer  from  the  table  listed  in  the  INT24Result 
procedure  (two  ways  of  looking  at  the  critical  error); 
Lo ( <var iable  > )  will  give  Turbo's  IOResult.  A  critical 
error  will  always  be  reflected  in  INT24Result,  but  the 

IOResult  part  of  INT24Result  will  not  necessarily  be 
nonzero;  in  particular,  unsuccessful  writes  to  character 
devices  will  not  register  as  a  Turbo  I/O  error. 

INT24Result  should  be  called  after  any  operation  which 
might  cause  a  critical  error,  if  Turbo's  I/O  checking  is 

disabled.  If  it  is  enabled,  the  program  will  be  aborted 
except  in  the  above  noted  case  of  writes  to  character 
devices  . 

Also  note  that  different  versions  of  DOS  and  the  BIOS 
seem  to  react  to  printer  errors  at  vastly  different  rates. 
Be  prepared  to  wait  a  while  for  anything  to  happen  (in  an 
error  situation)  on  some  machines.  These  routines  are 
known  to  work  correctly  with: 

Turbo  Pascal  1.00B  PC- 

DOS;  Turbo 

Pascal  2.00B  PC-DOS;  Turbo  Pascal  2.00B  MS- 
DOS; 

Turbo  Pascal  3.01A  PC-DOS. 
versions  should  work. 


Other  MS-DOS  and  PC-DOS 


Note  that  Turbo  2.0's  normal  IOResult  codes  for  MS-DOS  DO 
NOT  correspond  to  the  I/O  error  numbers  given  in  Appendix 
I  of  the  Turbo  2.0  manual,  or  to  the  error  codes  given  in 
the  I/O  error  nn,  PC=aaaa/Pr ogram  aborted  message.  Turbo 
3.0  IOResult  codes  do  match  the  manual.  Here  is  a  table 
of  the  correspondence  (all  numbers  in  hexadecimal): 

Turbo  2.0  IOResult  Turbo  error, Turbo  3.0  IOResult 


00 

00 

none 

01 

90 

record  length  mismatch 

02 

01 

file  does  not  exist 

03 

FI 

directory  is  full 

04 

FF 

file  disappeared 

05 

02 

file  not  open  for  input 

06 

03 

file  not  open  for  output 

07 

99 

unexpected  end  of  file 

08 

F0 

disk  write  error 

09 

10 

error  in  numeric  format 

0A 

99 

unexpected  end  of  file 

OB 

F2 

file  size  overflow 

OC 

99 

unexpected  end  of  file 

OD 

F0 

disk  write  error 

0E 

91 

seek  beyond  end  of  file 

OF 

04 

file  not  open 

10 

20 

operation  not  allowed  on 
logical  device 

a 

11 

21 

not  allowed  in  direct  mode 

12 

22 

assign  to  standard  files 
allowed 

is 

F3 

Too  many  open  files 

Bela  Lubkin 

CompuServe  76703,3015  1/28/86} 

Const 

I NT2 4Er r :  Boolean=Fa lse ; 

INT24ErrCode :  Byte=0; 

OldINT24:  Array  [1..2]  Of  Integer= ( 0, 0  ) ; 

Var 

RegisterSet:  Record  Case  Integer  Of 

1:  ( AX , BX, CX ,DX,BP,SI,DI,DS,ES,Flags : 
I nteger ) ; 

2:  ( AL , AH, BL, BH, CL, CH, DL, DH :  Byte f; 


{  Interrupt  24  Service  Routine  } 


Procedure  INT24; 

Begin 

I nl ine (  $2E/$C6/$06/  Int24Err  /  $01/$50/$89/$F8/$2E/$A2/ 
I nt 2  4Er rCode/$  58/$B0/$0  0/$8  9/$EC/$  5D/$CF ) ; 


{  Turbo:  PUSH 
MOV 

PUSH 

Inline: 

MOV 

PUSH 

MOV 

MOV 

POP 
MOV 
MOV 
POP 
I  RET 

} 

End ; 


{ - } 

{  I  N  T  2  4  0  N  } 

{ - } 


{  Grab  the  Critical  error  ptr  from  the  previous  user) 
Procedure  INT240n;  {  Enable  INT  24h  trapping  } 

Begin 

INT24Err : =False; 
with  RegisterSet  Do 
Begin 
AX : =$3524; 

MsDos (RegisterSet); 

If  ( Old I NT2 4 ( 1 J  Or  01dINT24 [ 2 ] ) =0  Then 
Begin 

Old I NT2  4 [ 1 ] : =ES; 

OldINT24 ( 2 ] : =BX; 

End ; 

DS : =CSeg; 

DX : =0  f s ( INT24 ) ; 

AX: =$2524; 

MsDos(RegisterSet); 

End ; 

End ; 


BP 

BP,  SP 
BP 


Save  caller's  stack  frame 
Set  up  this  procedure's  stack 
frame 


BYTE  CS : [ INT24Err ] , 1  Set  I NT2 4Er r  to 

True 

AX 

AX, DI  Get  INT  25h  error  code 

CS : ( INT2 4 Err Code ) , AL  Save  it  in 

I NT24ErrCode 
AX 

Tell  DOS  to  ignore  the  error 
Unwind  stack  frame 


AL,  0 
SP ,  BP 
BP 


Let  DOS  handle  it  from  here 


-  240  - 


1 


i 


C'/-, 

o.'.. 


•  .  -  .  -  . -v  1 7»  l'*  70  ^".T.VVA'  'A'  ...  ..  , 


[ - } 

{  I  N  T  2  4  0  F  F  } 

1 - } 


{Give  Critical  Error  Service  pointer  back  to  previous  user} 
Procedure  INT240ff; 

Begin 

INT24Err:=False; 

If  OldINT24 [ 1 ] <>0  Then 
With  RegisterSet  Do 
Begin 

DS:=01dINT24ll]; 

DX : =01dINT24 [ 2  ) ; 

AX:=$2524; 


Ms Dost RegisterSet) ; 
End; 

Old  I NT2  4 [ 1  ]  : =0 ; 
OldINT24I 23 :=0; 


End  ; 


Function  INT24Result:  Integer; 

Var 

I : Integer ; 

Begin 

I :=IOResult; 

If  INT24Err  Then 
Begin 

I := 1+2 56*Succ ( INT24Err Code ) ; 

INT240n; 

End; 

INT24Result :  =  1 ; 

End; 

{INT24Result  returns  all  the  regular  Turbo  IOResult  codes 
if  no  critical  error  has  occurred.  If  a  critical  error, 
then  the  following  values  are  added  to  the  error  code  from 
Turbo : 


256: 
512: 
768: 
1024  : 
1280  : 
1536  : 
1792  : 
2048  : 
2304  : 
2560  : 

2816  : 
3072  : 
3328  : 


Attempt  to  write 
Unknown  unit 
Drive  not  ready 
Unknown  command 
Data  error  (CRC) 

Bad  request  structure 
Seek  error 
Unknown  media  type 
Sector  not  found 
Printer  out  of  paper 

Write  fault  [character 

Read  fault  [character 

General  failure 


otected  disk 
[internal  dos  error] 
open  or  bad  drive] 
[internal  dos  error  3 
[bad  sector  or  drive] 
[internal  dos  error] 
[bad  disk  or  drive] 

[ bad  disk  or  drive] 
[bad  disk  or  drive] 
[anything  that  the 
printer  might  signal] 
device  not  ready] 
device  not  ready] 

[several  meanings] 


on  write  pr 
[drive  door 

length 


•w 


•4 

Z'Z'Z 
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If  you  need  the  IOResult  part,  use 

I : =INT24Result  and  255;  [masks  out  the  INT  24h  code] 

For  the  INT  24h  code,  use 

I : =INT24Result  Shr  8;  [same  as  Div  256,  except  faster] 
INT24Result  clears  both  error  codes,  so  you  must  assign 
it  to  a  variable  if  you  want  to  extract  both  codes: 

J  :  =  INT24Result; 

Wr i teLn (' Turbo  IOResult  =  ',J  And  255); 

Wr i teLn { ' DOS  INT  24h  code  =  ',J  Shr  8); 

Note  that  in  most  cases,  errors  on  character  devices  ( LST 
and  AUX )  will  not  return  an  IOResult,  only  an  INT  24h 
error  code.  } 

{  Main  program.  Delete  next  line  to  enable  } 


{ - > 

{  GET  ERROR  CODE  } 

( - } 

Procedure  GetErr orCode ; 

Beg  i  n 


Error  :=  IOresult;  {Read  the  I/O  result] 

If  INT24Err  Then 
Begin 

Error : =Error +256*Succ ( INT24ErrCode ) ; 

INT240n; 

End ; 

Good  :=  (Error  =  0);  {Set  Boolean  Result  } 


{  ****************************** 

*  STAYI16.  410  * 

******************************} 

Ini ine ( 

{ -A*****************************************************. } 

{ ; P  ROCESS  INTERRUPT  16  ;} 

r ******************************************************** i 
1  /  /  * 

{ ;  Funct i on : } 

{;Provide  a  Keyboard  trap  to  allow  concurrent  processes  to 
run  in  the  background  while  a  Turbo  Read  is  active. 


{; 

Copyright  (C)  1985,1986} 

{ ; 

Lane  Ferris} 

t; 

-  The  Hunter's  Helper  -} 

£; 

Distributed  to  the  Public  Domain  for 

use  without 

profit. 

Original  Version  5.15.85} 

{; 

;  On  entry  the  Stack  will  already  contain:  ;} 

;  1)  Sp  for  Dos 

; } 

{; 

;  2 )  Bp  for  Dos 

; } 

{; 

;  3)  Ip  for  Dos 

; } 

{; 

;  4 )  Cs  for  Dos 

; ) 

t; 

;  5)  Flags  for  Dos 

; ) 

$5D 
/$  5D 

/$80/$FC/$00 

/$  74/$  2A 

/$80/$FC/$01 

/$74/$05 

(GoBiosl6  :  } 

/$  2E 


(Pop  Bp) 

{Pop  Bp; 

Restore  Original  Bp} 

{Cmp  Ah, 00; 

I f  Char  request,  } 

{Je  FuncOO; 
loop  for  character } 

{Cmp  Ah, 01; 

If  character  availability 

{Je  FuncOl; 
go  check  for  char} 


{CS:; 

Go  to  Bios  Interrupt  16} 


test } 


/$FF/$2E/>BIOS_INT16 


{  Jmp  Far  [ >BI OS_I ntl 6 ] } 


{Call  KeyStat; 

Look  at  Key  buffer} 
{ PushF } 

{Jz  FretOl; 

Return  if  no  key} 
{CS  :  ; 

Test  for  HOT  KEY} 


{ FuncO 1 : } 
/ $E8/ $  3F/ $  0  0 


/$9C 

/$74/$16 
/  $  2E 

/ $  3 A/ $  2  6/ >OUR_HOTKEY 

{ Cmp  Ah, [ <Our_HotKey ] } 

/ $  7  5/ $  OF  Jne  FretOl} 

/$B4/$00  {Mov  Ah, 0; 

Remove  the  HotKey} 

/$2E  {CS:; 

flags  are  removed  by  BIOS  return} 
/$FF/$1E/>BI0S_INT16 

{Call  Dword  [ >BI0S_INT16 ] } 

/  $  2E 

{CS  :  ; 

Say  we  saw  the  HOT  Key} 
/$80/ $0E/> STATUS/ <HOTKEY_ON 

{Or  by  [ <Status ] , <HotKey_ON } 

/$EB/$E4 


{FretOl : } 


/  $9  D 

/ $CA/ $  0  2/$ 0 0 


{ Jmp  FuncOl; } 

{POPF} 

{ RETF  2; 

Return  to  user  } 


{ FuncOO : } 


/$E8/$1F/$00 


/$  7  4/ $FB 
/$B4/$00 

/$9C 

/$  2E 

/$FF/$1E/>BI0S_INT16 
/$9C 
/  $  2E 

/$3A/$26/>OUR  HOTKEY 


{Call  KeyStat; 

Wait  until  character  available} 
{Jz  FuncOO} 

{Mov  Ah,0; 

Get  the  next  User  Key} 

{ PUSHF; } 

{CS  :  } 

{Call  Dword  [ >BI 0S_INT16 ] } 

{ PushF; 

Save  Return  Flags} 

{CS  :  } 

{Cmp  Ah, [ <Our_HotKey ] ;  Our  HotKey  ?} 
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/$74/$04 


{Je  GotHotKey; 
yes.. enter  Staysave  code) 


/$9D 


/  S  C  A/  $  0  2  /  $  0  0 


{POPF; 

else  Restore  INT  16  flags} 

{ RetF  2; 

Return  W/Key  discard  original  INT  16  flags} 
{;  give  it  to  Mikey. . he'll  eat  anything"} 


{GotHotKey: } 

/$9D  {POPF;  Discard  INT16  return  flags} 

/$2E  {CS:;  Say  we  saw  the  HOT  Key} 

/$80/$OE/>STATUS/<HOTKEY_ON  {  Or  by  [ <Status ] , <HotKey_ON} 
/ $EB/$DE  {Jmp  FuncOO;  Get  another  Key} 

t;> 

{;  Call  the  Background  task  if  no  key  is  available} 

{;} 

{KeyStat : } 


/$B4/$01 


/  $9C 


{Mov  Ah, 01; 

Look  for  available  key} 


{Pushf ; 

Call  the  keyboard  function} 

/$2E  {CS:} 

/$FF/$1E/>BI0S_INT16 

{Call  dw  [ <BIOS_INT16 ] } 

/$74/$01 

{Jz  ChkDosCr; 

No  Character  available  from  Keyboard} 

/$C3 

{RET; 

else  return  with  new  flags  and  code} 

{ ChkDosCr : } 

/$  06 

{Push  ES; 

Check  if  DOS  Critical  error  in  effect} 
/$56  {Push  Si} 

/$2E  {CS:} 

/ $C4/$36/>DOSSTAT2 

{Les  Si, [ >DOSStat2 I } 

/ $  2  6  {ES:; 

Zero  says  DOS  is  interruptable } 

/$ AC  {Lodsb; 

$FF  says  Dos  is  in  a  critical  state} 


/$2E 

/$C4/$  36/ >D0SSTAT1 


{ CS :  } 


{Les  S i , [ >DosStatl ) ; 

If  INDOS  then  INT  $28  issued  by  DOS} 

/$26 

{ ES : ; 

so  we  dont  have  to.} 

/$0A/$04  {Or  Al , [SI  1 } 

/$2E 

{CS: ; 

Account  for  active  interrupts} 

/$0A/$06/> INTR_FLAGS 

{Or  A1 ,  t  < I ntr _Flags } ; 

Any  flags  says  we  dont  issue  call} 

/$  5E 


/$07 

/ $  3C/ $01 

/$7F/$02 

/$CD/$  2  8 


{Pop  Si; 

to  the  background.} 

{Pop  Es } 

{Cmp  Al,01; 

Must  be  INDOS  flag  only} 

{JG  Sk ip28; 

DOS  cannot  take  an  interrupt  yet} 

{INT  $28; 

Call  Dos  Idle  function  (background  dispatch).} 


{ Sk ip28 : } 

/$  31/ $C0 


/  $C3 

t;  — 

>; 


(Xor  Ax, Ax; 

Show  no  keycode  available} 
{RET} 

- } 


246 


{******************************* 
*  STAYI13.410  * 


Inline ( 


{;  3TAYI 13.400} 

{. - ;} 

{;  Routine  to  Set  a  Flag  when  INT  13  Disk  I/O  is  active} 
$  5D 

{Pop  Bp; 

Remove  Turbo  stack  frame} 

/$  5D  {Pop  Bp} 

/$2E  {CS:} 

/$80/$0E/> INTR_FLAGS/< INT13_0N 

{ Or  by 

[ <1 ntr_f lags ] , <INT13_on; 

Say  INT  13  is  Active} 

/  $9C 


/$2E 

/ $FF/$1E/>BI0S_INT13 
/$9C 


{ Push; 

Invoke  Original  Disk  INT  13} 
{ CS :  } 

{Call  dw  [ <BIOS_INT13 ] } 


{Pushf ; 

Save  Return  Flags} 


/$2E  {CS:} 

/$80/$26/>INTR_FLAG3/<FOXS-INT13_ON 

{And  by  I <Intr_f lags ] ,  <Foxs-INT13_on 
Clear  INT  13  Active  flag} 


/$9D 


/ 


{ Popf ; 

Retrieve  results  flags} 


/ $CA/$02/ $00 


{ RETf  2; 

Throw  away  old  flags} 


{******************************** 
*  STAYI21.410  * 


I nl ine ( 

{;  STAYI 21.400} 

{; - } 

{;  Routine  to  Set  a  Flag  when  certain  INT21  functions  are 
active.  Functions  to  be  flagged  are  identified  in  the  main 
Stayres  routine.  Cf.  Functab  array.} 

$5D 

(Pop  Bp; 

Remove  Turbo  Prologue} 


/$  5D 


/$9C 

/$FB 


(Pop  Bp} 
{ PushF} 


/$80/$FC/$62 


{ STI ; 

Allow  interrupts} 


/$7F/$28 


{ Cmp  Ah , $  6  2 ; 

Verify  Max  function} 

{Jg  Sk ipl 21 } 

{;  Some  Int  21  functions  must  be  left  alone.  They  either 
never  return,  grab  parameters  from  the  stack,  or  can  be 
interrupted.  This  code  takes  account  of  those 


possibilities .  } 
/$50 


/$53 


{Push  Ax; 

Skip  functions  marked  1  in} 


(Push  Bx; 

in  the  function  table.} 


/$86/$C4 


/$BB/> FUNCTAB 


{Xchg  Ah, Al } 


/$2E 

/$D7 

/$08/$C0 


/$5B 


/$  58 

/$75/$19 


{Mov  Bx,>FuncTab; 

Test  Int  21  function} 
{CS:  } 

{Xlat } 

(Or  Al,Al; 

Wait  for  functions  marked  zero} 
{Pop  Bx; 

in  the  function  table.} 
{Pop  Ax} 

{Jnz  SkipI21} 

{ Setl 21 : } 


-  248  - 


-  -  *  j.' ►  •*’  *  * 


.V -> w*A•  \ ..  .V .  •.> 


m 


v  V, 


/$2E  {CS :  } 

/$  80/$  0E/> INTR_FLAGS/ < INT21_ON 

{Or  by  I <Intr_f lags ] ,  <INT21_on  ; 
Say  INT  21  is  Active} 

{PopF} 

{Pushf } 

(CS  :  } 


/$9D 

/$9C 

/$2E 

/ $FF/$lE/>DOS  INT21 


/  $FB 

/$9C 

/$2E 


{Call  dw  [ <DOS_INT21 ) ; 
Invoke  Original  INT  21} 

{STI; 

Insure  interrupts  enabled} 
{ Pushf ; 

Save  Return  Flags} 


ICS:; 

Clear  INT  21  Active} 
/$80/$26/>INTR_FLAGS/<FOXS-INT21_ON 

{And  by  [ <Intr_f lags ] , <Foxs-INT21_on} 

/$9D 

{Popf; 

Retrieve  the  flags} 

{RETF  2} 

{ Skipl 21 : ; 

Invoke  int  21  w/o  return} 
{PopF} 

{CS: } 


/$CA/$02/$00 


/$9D 

/$2E 

/$FF/$2E/>DOS  INT21 


{ Jmp  dw  [ >Dos_INT21 1 } 


{; 

); 


{*********************************************************} 
{*  CLKI8.410  Clock  Interrupt  Service  *} 

{*********************************************************} 
(*  CLOCK_I 8 . I NL  *) 

(*  Fm:  Neil  J.  Rubenking  [72267,1531] 

On  each  call  to  INT  8,  this  routine  checks  if  the 
timer  is  "running".  If  it  is,  it  checks  if  the  activation 
time  has  been  reached.  If  it  has,  the  STATUS  byte  is  set 
to  include  the  "HotKey_On"  and  "From_Timer"  bits.  After 
that,  control  passes  on  to  the  STAYI8.0BJ  code  *) 

( *NJR* ) 

INLINE ( 

$9C/  { PUSHF } 

$2E/$F6/$06/>Status/<Timer_On/ 

{TEST  BY  CSrstatus,  timer_on] 

$7 4/$29/  {JZ  nothing] 

$50/  {PUSH  AX] 

$1E/  {PUSH  DS] 

$B8/$40/$00/  {MOV  AX, 4 Oh] 

$8E/$D8/  {MOV  DS , AX } 

$Al/$6E/$00/  { MOV  AX, [ 6E ] } 

$2E/$39/$06/>t imer_hi/  {CMP  CS : t imerjii , AX } 

$75/$16/  { JNZ  not_yet } 

$Al/$6C/$00/  {MOV  AX, [ 6C 1 } 

$2E/$39/$06/>t imer_Lo/  {CMP  CS  :  timer_JLo,  AX] 

$7D/$0C/  { JGE  Not_Yet } 

$2E/$80/$0E/>Status/<HotKey_0n/ 

{OR  BY  CS:status,  hotkey_on] 
$2E/$80/$0E/>Status/<f rom_Timer/ 

{OR  BY  CSrstatus,  from_timer] 

{ Not_Yet } 

$1F/  {POP  DS] 

$58/  {POP  AX} 

{nothing} 

$9D ) ;  {POPF} 

( *NJR* ) 

{ - End  Clock  18  - } 


{********************************* 

*  STAYI8.420  * 

*********************************} 

Ini ine ( 

{ ;  STAY I  8 . 413} 

{; - } 

{;  Routine  to  Await  Outstanding  I/O,  then  post  Stayres 
Active } 


/$5D 

/$9C 

/$2E 

/$FF/$1E/>BI0S  INT8 


{Pop  Bp; 

Remove  Turbo  Prologue) 
(Pop  Bp) 

{Pushf } 

{CS  :  } 


{Call  dw  [ >BIOS_INT8 ] ; 

Invoke  Original  INT  8} 

/$2E  {CS:} 

/$F6/$0 6/ > STATUS/ <HOTKEY_ON 

{Test  by  [ <Status ] , <HotKey_on; 

Have  we  received  the  HOTKEY} 
/$74/$39  {Jz  NoGo} 

/$2E  {CS:} 

/ $F6/ $ 0 6/ > STATUS/ < INUSE 

{Test  by  [ <Status ] , <1 nuse ; 

If  Inuse.,  then  No  go} 

/$75/$31  { Jnz  NoGo) 

/$2E  {CS:; 

Have  the  HotKey} 

/$80/$  3E/ > WAI TCOUNT/$0  0 

{Cmp  by  [ <WaitCount ] , 00; 

If  waiting,  check  time} 

/$75/$22  {Jnz  Waiting} 

{;  If  Not  already  waiting  I/O,  not  already  in  use,  and 
HotKey  received  see  if  DOS  is  now  inter ruptable } 

{ChkIO: } 


/$06 


/$56 
/$50 
/$  2E 

/$C4/$  36/>DOSSTATl 


{Push  ES; 

Save  registers) 
{Push  Si } 

{Push  Ax} 

{CS:  } 

{LES  S i , [ >DOSsta tl ] ; 
Fetch  Dos  status  1} 


f 

4 


I 


/  $AC 


/$2E 

/$C4/$  36/>DOSSTAT2 


{Lodsb; 

Fetch  Status  byte  from  dos} 
CCS:} 


/$  26 

/$  0 A/$04 
/$2E 

/$0A/$06/>INTR_FLAGS 


{LES  SI, [ >DOSstat 2 ] ; 

Add  second  status  byte} 
(ES:  } 

{Or  Al, [SI ] } 

(CS:  } 


/$58 

/$5E 

/$07 

/$74/$0E 


{Or  Al , [ < I ntr_Flags ] ; 

Add  Interrupt  active  flags} 
{Pop  Ax} 

{Pop  Si} 

{Pop  ES} 


/$2E 

/$C6/$06/>WAITCOUNT/$10 


{Jz  Go; 

Wait  for  inactivity} 
{CS :  } 


{Mov  by  [ <WaitCount ] , $10; 
Set  Wait  count} 


{Waiting : } 

/$2E 

/ $FE/ $  0E/ >  WAI TCOUNT 


{CS:  } 


/$  7  4/$D7 


{Dec  by  [ <WaitCount ] ; 

Decrement  wait  count} 
{Jz  Chic  10 } 


{ NoGo : } 


/$CF  {IRET} 

{GO:  ;  Enter  the  User's  Turbo  Procedure} 

/$2E  {  CS:} 

/$FF/$16/>USERPR0GRAM  {  Call  [ <UserProgram] } 

/$CF  {  IRET} 


y 


{********* t*********************** 

*  STAYI28  .  410  * 


Ini ine (  {;  STAYI28.400} 

{; - } 

{;  Routine  to  Invoke  User  Code  When  Hotkey  or  DOS  idle} 

$5D  {Pop  Bp; 

Remove  Turbo  Prologue} 

/$ 5D  {Pop  Bp} 

/$9C  { Pushf } 

/$2E  {CS:  } 

/ $FF/$lE/>DOS_INT28  {Call  dw  [ >DOS_INT28 ] ; 

Invoke  Original  INT  28} 

/$2E  {CS:} 

/ $F6/$06/>STATUS/<HOTKEY_ON 

{Test  by  [ <Status ] , <HotKey_on; 

Have  we  received  the  HOTKEY} 

/$7  4/$2  5  {Jz  NoGo} 

/$2E  {CS:} 

/$F6/$06/>STATUS/< INUSE 

{Test  by  [ <Status  ] ,  <Inuse; 

If  Inuse.,  then  No  go} 

/$75/$lD  { Jnz  NoGo} 

{;  If  Not  already  waiting  I/O,  not  already  in  use,  and 
HotKey  received  see  if  DOS  is  now  interruptable } 


{ ChkIO : } 


/$06 


/$56 
/$50 
/$  2E 

/ $C4/$36/>DOSSTAT2 


/$26 
/$AC 
/$  2E 

/$0A/$06/> INTR  FLAGS 


/$58 
/$5E 
/  $07 


{Push  ES; 

Save  registers} 

{Push  Si } 

{Push  Ax} 

{CS  :  } 

{LES  SI, [ >DOSstat2  J ; 

Fetch  DOS  Critical  status  byte} 
{ ES :  } 

{LodSb } 

{CS : } 

{Or  A1 ,  [  <Intr_Flags  ] ; 

Add  Interrupt  active  flags} 

{Pop  Ax} 

{Pop  S i } 

{Pop  ES } 
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Inline  ( 


{.*****************************************************;} 

{;  STAYSAVE.  420  ;> 

{ ^ *****************************************************; } 

{;Version  4.15} 

{;} 

{;  This  Inline  routine  will  save  the  regs  and  Stack  for 
Stay  resident  programs.  It  restores  DS  and  SS  from  the 
previously  saved  integer  constants  "OurDseg"  and 
"OurSSeg".  DS  is  restored  from  the  Turbo  Initialization 
Save area . } 

{;  Author:  Copyr.  1985,  1986} 

{;  Lane  Ferris} 

{;  -  The  Hunter's  Helper  -} 

{ ; Distr ibuted  to  the  Public  Domain  for  use  without  profit.} 
{;  Original  Version  5.15.85} 

$FA 

{ CLI ; 

Stop  all  interrupts} 

/$2E  {CS:} 

/$80/$0E/>STATUS/< INUSE 

{Or  by  [ <Status ] , <InUse; 

Set  Active  bit} 

{;  Switch  the  SS:Sp  reg  pair  over  to  ES:Si} 

{;  Put  Turbo's  Stack  pointers  into  SS:Sp} 

/$2E  (CS:} 

/$8C/$1E/>USRDSEG 

{Mov  [ >UsrDSeg] ,DS; 

Save  Usr  DataSegment} 

/$2E  {CS:} 

/$8C/$16/>USRSSEG 

{Mov  [ >Usr SSeg ] , SS ; 

Save  Usr  Stack  Segment} 

/$2E  {CS:} 

/$89/$26/>USRSPTR  {Mov  [ >Usr SPtr ] , Sp; 

Save  Usr  Stack  Ptr} 

{;  Stack  User  interrupted  pgm  regs  for  Exit.} 

{;  These  are  the  original  interrupt  process  regs} 

{;  that  must  be  returned  on  interrupt  return} 

/$2E  {CS:} 

/$8E/$lE/> OURDSEG  {MovDS, [ >OurDseg] ; 

Get  Turbo  Stack  pointer  from  DataSegment} 

/$2E  {CS:} 

/$8E/$16/>OURSSEG  {Mov  SS, [ >OurSSeg 1 } 

/$8B/$26/$74/$01  {Mov  Sp, [ $174 ] ; 

Sp  set  by  code  at  $B2B  in  Turbo  initialization} 
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/$  55 
/$  50 
/$53 
/$  51 
/$  52 
/$56 
/$  57 
/$06 


{Push  Bp} 
{Push  Ax} 
{Push  Bx} 
{Push  Cx} 
{Push  Dx} 
{Push  Si} 
{Push  Di} 
{Push  Es} 


{;  Save  the  InDOS  stack  to  avoid  recursion  crashes 
( Wr i tel n  )  .  } 

{;  Setup  destination  to  Turbo  Stack} 

/$89/$E7  {Mov  Di , Sp; 

Dest  is  our  stack} 

/$4F  {Dec  Di; 

Back  off  current  used  word} 

/$ 4F  {Dec  Di} 

/$2E  {CS:} 

/$8C/$D0  {Mov  Ax , S S ; 

Turbo  stack  is  destination} 
/$8E/$C0  {Mov  ES , Ax } 

{;  Setup  source  from  DOS  Indos  primary  stack} 


/$2E 

/$8E/$1E/>D0SSSEG 

/$2E 

/$8B/$36/>DOSSPTR 


/$B9/$40/$00 

/$2E 

/$89/$OE/>DOSSSIZ 
/$  4E 


/$  4E 

/$89/$E0 


/$29/$C8 

/$29/$C8 
/$89/$C4 
/  $FD 

/ $F2/$A5 


{CS:  } 

{Mov  DS, [ >DosSSeg ] ; 

Source  is  DOS  Indos  primary  stack} 
{CS:  } 

{Mov  Si, [ >DosSptr ] ; 

DOS  primary  stack  offset} 

{Mov  Cx, $40 } 

{CS:  } 

{Mov  [>DosSsizl; 

remember  the  stack  word  size} 

{Dec  Si; 

point  last  word  on  stack} 

{Dec  Si} 


{Mov  Ax,Sp; 

Get  stack  pointer  higher  to  avoid} 
{Sub  Ax,Cx; 

overwriting  during  enabled  REP  functions} 
{Sub  Ax , Cx } 

{Mov  Sp,Ax} 

{STD; 

Move  like  Pushes  on  stack} 

{Rep  Movsw; 

Move  users  stack  to  our  own} 
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TO 


/$89/$FC 


Update 

/  $FC 
/$  2E 

/$8E/$1E/>0URDSEG 


/$FB 


{ Mov  Sp,Di; 

our  stack  pointer  to  available  word.} 

{ Cld } 

(CS  :  } 

{Mov  DS ,  [ >Our DSeg ] ; 

Setup  Turbo  Data  Segment  Pointer} 

{STI; 

Enable  Interrupts} 


Ini ine  ( 


{ . A*****************************************************- } 

{STAYRSTR.420  ;} 

{  This  is  the  StayRstr.Inc  file  included  above  ;} 

i  .  ******************************************************  •  i 
1  /  >  1 

{;Version  4.15} 

{  Inline  Code  to  restore  the  stack  and  regs  moved;  to  the 
Turbo  Resident  Stack  which  allows  Turbo  Terminate  &  Stay 
Resident  programs.} 

{  ;  Copr.  1985,  1986} 

{  ;  Author:  Lane  Ferris} 

{  ;  -  The  Hunter's  Helper  -} 

{  Distributed  to  the  Public  Domain  for  use  without  profit.} 

{  ;  Original  Version  5.15.85} 

{. - ;} 

{;  Restore  the  Dos  (or  interrupted  pgm)  Regs  and  Stack  ;} 


{;  Replace  the  Users  Saved  Stack} 

{;  Note  that  pushes  on  the  stack  go  in  the  opposite 
direction  of  our  moves.  Thus  we  dont  worry  about  REP  stack 
activity  overlaying  the  enabled  REP  fuction.} 

$FA  {CLI} 

/$2E 


Avoid  stack 
/ $Al/>DOSSSI Z 
/$09/$C0 
/ $  7  4/ $  2  0 
/$8C/$D0 


{ CS : ; 

manipulation  if  never 
{Mov  Ax, [ >DosSs iz  ]  } 
{Or  Ax, Ax} 

{Jz  NotinDos} 


"StaySaved " } 


{Mov  Ax,SS; 

Source  is  our  Stack} 


/$8E/$D8  {Mov 

/$89/$E6  {Mov 

Point  to  Last 

/ $  4  6  {Inc 

/$46  {Inc 

/$2E  {CS:} 

/ $  8E/ $0  6 / >  DOSSSEG  {Mov 

Dest 


DS, Ax } 

S  i ,  S  p ; 

used  USER  word  on  our  stack } 
Si  } 

Si } 

ES ,  { >DosSSeg ] ; 

is  Dos  indos  primary  Stack} 


/$  2E 

/$8B/$3E/>DOSSPTR 
/$  2E 

/$8B/$OE/>DOSSSI Z 


{CS  :  } 

{Mov  Di , [ >DosSptr ] } 
{CS:  } 

{Mov  Cx, [ >DosSs i z ] ; 


Saved  words} 


/♦TURBO. LAN 


This  file  is  an  example  of  a  user  defined  keyboard  overlay. 
Once  compiled,  the  resulting  language  description  file 
overlay  is  intended  to  be  used  with  Turbo  Pascal  with  the 
IBM  Vo  ice -Act i vated  Keyboard  Utility.  Special  key 

sequences  that  are  normally  entered  by  hand  may  be  voiced 
when  this  overlay  is  loaded  into  memory.  With  the  special 
overlay,  CONSOLE. LDF,  preloaded  with  the  option  permanent, 
the  user  may  voice  commands  to  train  the  words  in  this 
overlay . 

Vocabulary: 

This  overlay  contains  two  word  groups: 

Group  Words  Description 

ALL  37  This  group  contains  the  overlay's 

predefined  words.  By  selecting 
the  ALL  group,  the  user  can  change  the 
name  and/or  keystrokes  generated  by  a 
word.  Words  in  this  group  contain 
commands  for  the  Vo ice-Act i vated 
Keyboard  Utility  and  for  Turbo  Pascal 
Commands.  Words  are  always  active. 


COMMANDS  10 


The  words  in  this  group  are  always 
active.  The  user  may  define  desired 
words  and  the  keystrokes  that  are 
produced . 


Note:  All  words  in  this  overlay  are  always  active 

subproductions  are  defined.  */ 


^define  vcom  /*  Special  key  bindings  for  this  overlay  */ 


"bind  a-c  console 
bind  a-m  menu/permanent 
bind  a-1  microphone  on 
bind  a-o  microphone  off 
bind  a-t  microphone  momentary 
bind  a-r  remember 
bind  a-d  define 


bind  /echo  enter  reset”; 


/*  Defined 
generate)  */ 
enter  "'enter'" 


Words  (followed  by 


keystrokes  they 


-  251  - 


menu  "'a-m'" ; 

vo i ce _ c ons o 1 e  "'a -c'"; 

1 ine_up  " ' esc ' H" ; 
line_down  " 'esc'P"; 
scroll_up  "'c-W'"; 
scroll_down  "'c-Z'"; 
page_up  " ' esc ' I " ; 
page_down  "’esc'Q"; 
delete_line  "'c-Y'"; 
delete_character  '"esc'S"; 
begin_block  "'c-K'b"; 
end_block  "'c-K'k"; 
copy_block  "'c-K'cM; 
move_block  "'c-K'v"; 
hide_block  '"c-K'h"; 
delete_block  " ’c-K'y"; 
read_block  " ’c-K'r"; 
write_block  " ' c-K'w"; 
end  '"c-K'd"; 
toP—Of—f i le  " 'c-Q'r"; 
end_o£_£ile  '"c-Q'c"; 
left  '"esc'K"; 
r ight  " 'esc' M" ; 
word_left  "'c-A'" ; 
word_right  " ' c-F'"; 
beginning_o£_l ine  "'esc'G"; 
end_of_line  " 'esc'O”; 
find  " ' c-Q ' f " ; 
replace  "'c-Q'a"; 
quit  "q"; 
edit  "e" ; 
compile  ”c"; 
options  "o”; 
run  "r” ; 
save  ”s"; 
escape  "'esc'"; 

/*  The  root  sentence  definition  follows  */ 

Root  tenter  menu  voice_console  cmdl  cmd2  cmd3  cmd4  cmd5 
cmd6  cmd7  cmd8  cmd9  cmdlO)  = 

( lineup, 

1  ine_down/ 
scroll^p, 
scroll_down/ 
page_up, 
page_down, 
de lete_l ine , 
delete_character , 
begin_block , 


end_block , 
copy_block , 
move_block , 
hi.de_bl.ock, 
de lete_block , 
read_block , 
wr ite_block , 
end, 

top_of _f i le , 

end_of_f ile, 

left, 

r ight, 

word_lef t, 

word_r ight, 

beginning_of_line, 

end_of _1 ine , 

find, 

replace , 

quit, 

edit, 

compile , 

options, 

run, 

save , 

escape ) ; 

/*  ALL  is  the  group  of  all  predefined  words  */ 

* ALL  =  enter,  menu,  voice_console ,  line_up,  line_down 
scroll_up,  scroll_down,  page_up,  page_down, 
delete_line,  de lete_character ,  begin_block, 
end_block,  copy_block,  move_block,  hide_block, 
delete_block,  read_block,  write_block,  end, 
top_of_file,  end_of_file,  left,  right, 
word_left,  word_right,  beginning_of _1 ine , 
end_of_line,  find,  replace,  quit,  edit,  compil 
options,  run,  save,  escape; 

/*  COMMANDS  is  the  group  of  all  user-definable  words 


♦COMMANDS  =  cmdl,  cmd2, 
cmd9,  cmdlO 

cmd3,  cmd4, 

/ 

cmd5 , 

cmd6,  cmd7. 

!  cmdl;  !  cmd2; 

!  cmd6;  !  cmd7; 

!  cmd3;  ! 

!  cmd8;  ! 

cmd4; 
cmd9 ; 

!  cmd5; 

!  cmdlO; 

*/ 


*/ 

cmd8 , 


/*  END  TURBO. LAN 


